图片显示问题

我写的，不过有这样的错误
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/shaww/pic.asp，行 0


<table width="98%" border="0" cellpadding="2" cellspacing="0" class="newstext">
<% 'and newsofnet like '%中文新闻%'
sql="select * from news where newsclassname like '%图片集锦%' order by creadate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
rs.pagesize=5
n = rs.pagecount '取得总页数
page=page_request() '取得页码值
rs.AbsolutePage=page
end if
for i=1 to rs.pagesize
if rs.eof then exit for end if
%>
<tr>
<td height="10" colspan="3">&nbsp;</td>
</tr>
<tr>
<td width="4%" align="center"><img src="images/dot.gif" width="11" height="12"></td>
<% if rs.eof then exit for end if %>
<%
for i2=1 to 3 %>
<td width="30%"><a href="info.asp?id=<%=rs("id")%>&amp;newsclass=<%=rs("newsclassname")%>" target="_blank"><img src="<%=replace(rs("titlepic"),"/newspic/","/shaww/newspic/")%>" alt="" width="140" height="85" border="0" /></a>
</td>
<% if rs.eof then exit for end if %>
<%
rs.movenext
next%>
<td align="left">&nbsp; </td>
</tr>
<% if rs.eof then exit for end if %>
<%
rs.movenext
next
%>
</table>

 

已经加了，无效，那位仁兄，可以帮我修改一下以上代码