在用如下代码时提示：（错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/1/Inc/System.asp, line 1046, column 129
Response.Write "<TABLE WIDTH=865 BORDER=0 ALIGN=center CELLPADDING=0 CELLSPACING=0><TR><TD><DIV CLASS='table-Link'><font color="#000000"><strong>收藏本页：</strong></font>
--------------------------------------------------------------------------------------------------------------------------------^
）应该如何改？请赐教！


Sub Index_Link()
Set Rs_c=Server.CreateObject("Adodb.RecordSet")
Sql="select * from Tx_Link where Link_Flag=1"
Rs_c.Open sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
Response.Write "<TABLE WIDTH=865  BORDER=0 ALIGN=center CELLPADDING=0 CELLSPACING=0><TR><TD><DIV CLASS='table-Link'><font color="#000000"><strong>收藏本页：</strong></font>
                <script type="text/javascript" language="JavaScript" src="../js/shoucang.js">
</script></DIV>"
Response.Write "<TABLE WIDTH=865  BORDER=0 ALIGN=center CELLPADDING=0 CELLSPACING=0><TR><TD><DIV CLASS='table-Link'>友情连接</DIV>"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="select * from Tx_Link where Link_Flag=1 and Link_Logo<>''"
Rs.Open sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
Response.Write "<DIV STYLE='text-align: left;background-color: #ffffff;padding-top: 0px;padding-right: 6px;padding-left: 6px;text-align: center;'>"
While Not Rs.Eof
Response.Write "<A HREF=" & Rs("Link_Url") & " target='_blank' title='网站名称：" & Rs("Link_Name") & " 网站地址：" & Rs("Link_Url") & " 网站介绍：" & Rs("Link_Content") & "'><IMG SRC='" & Rs("Link_Logo") & "' WIDTH=88 HEIGHT=31 BORDER=0></A>　"
Rs.MoveNext
Wend
Response.Write "</DIV>"
End IF
Rs.Close
Set Rs=Nothing
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="select * from Tx_Link where Link_Flag=1 and Link_Logo=''"
Rs.Open sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
Response.Write "<DIV STYLE='text-align: left;background-color: #ffffff;padding-top: 5px;padding-right: 15px;padding-left: 6px;text-align: center;'>"
While Not Rs.Eof
Response.Write "<A HREF=" & Rs("Link_Url") & " target='_blank' title='网站名称：" & Rs("Link_Name") & " 网站地址：" & Rs("Link_Url") & " 网站介绍：" & Rs("Link_Content") & "'>" & Rs("Link_Name") & "</A>　"
Rs.MoveNext
Wend
Response.Write "</DIV>"
End IF
Rs.Close
Set Rs=Nothing
Response.Write "</TD></TR></TABLE>"
End IF
Rs_c.close
Set Rs_c=Nothing
End Sub

Response.Write "<DIV><script type=" & Chr(34) & "text/javascript" & Chr(34) & " language=" & Chr(34) & "JavaScript" & Chr(34) & " src=" & Chr(34) & "../js/shoucang.js" & Chr(34) & "></script></DIV>"