<%
response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0' id='table'><tr>"
set rs1=server.createobject("adodb.recordset")
sql="select * from danzi where lei_id ="&id
rs1.open sql,conn,1,3
if rs1.eof then
response.write "<td></td>"
else
i=0
do while not rs1.eof
response.write "<td><table width='200' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr>
<td height='84' align='left' valign='top'><table width='80' height='80' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#CCCCCC' >
<tr>
<td height='80' align='left' valign='top'>"&rs1("tupian")&"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#ffffff'>
</table></td>
</tr>
</table>
<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#ffffff'>
</table></td>
</tr>
<tr>
<td height='18' align='left' valign='top'>"&rs1("title")&"</td>
</tr>
<tr>
<td height='60' align='left' valign='top'>￥<span class='STYLE1'>"&rs1("Price")&".0元</span></td>
</tr>
</table></td>"
i=i+1
j=i mod 4
if j=0 then
response.write "</tr><tr>"
end if
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
response.write "</tr></table>"
%>
显示
Microsoft VBScript 编译器错误 '800a0409'
未结束的字符串常量
\wwwroot\1\taobao.asp, line 478
请问是怎么回事？