30岁眼睛黄斑病变原因:response对象不允许操作,怎么办?

请教大家一个问题.能前没碰到过这样的,错了,但网页上并不提示是哪一行错了,搞的我找了好久也找不到.希望大家给帮帮忙.

Response 对象, ASP 0104 (0x80070057)
不允许操作

用的是sql数据库.

下面是错误段的代码:
<%
sqlprod = "select * from ProdMain where online=1 order by AddDate desc"
set promptprod=Server.CreateObject("ADODB.Recordset")
promptprod.open sqlprod,conn,1,1

if promptprod.bof and promptprod.eof then
response.write "<table width=100% border=0 cellspacing=1 cellpadding=2 bgcolor=#FFFFFF height=150><tr><td align=center>您好！目前商城的商品架暂时没有 <b>"&SubLar&SubMid&"</b> 商品</td></tr></table>"
else

k=1
Do While Not promptprod.eof
%>
<tr>
<%
for i=1 to prompt_row step 1
ProdDisc=promptprod("ProdDisc")
if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
k=k+1
%>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF">
<tr><td width=25% align="center" valign="top"><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'><img src='<%=promptprod("ImgPrev")%>' width='<%=promptprod("ImgPrevWidth")%>' height='<%=promptprod("ImgPrevHeight")%>' border=0></a><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'><br>
<%=promptprod("ProdName")%></a><br>
价格:
<%if promptprod("PriceList")=0 then
response.write "<b><font color=red>备货中..</font></b>"
else
response.write "<b><font color=red>"&promptprod("PriceList")&" 元</font></b>"
end if
%>
</td>
</tr>
</table></td>
<%
promptprod.movenext
if k>prompt_num then exit do
if promptprod.eof then exit do
next
response.write "</tr><tr><td colspan='2' height='12'></td></tr>"
loop
end if
set promptprod=nothing
%>
</tr><tr><td colspan='2' height='12'></td></tr>
</table>