急，急，急 菜鸟跪求高手解决问题

我是刚刚学的菜鸟，希望高手能帮帮小弟。
问题：
ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 代码：
<%@ codepage="936" LANGUAGE="VBSCRIPT" %>
<!-- #include file="config.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="format.asp" -->
<HTML>
<HEAD>
<TITLE><%=webname%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK href="images/css/style.css" rel=stylesheet type=text/css>
<script language="JavaScript" src="js/menu.js"></script>
</HEAD>
<BODY BGCOLOR=#006600 topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
 <!--#include file="inc/top-lianxi.asp" -->
<%
sql="select * from source where source_title='"&request.querystring("source_title")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
catid=rs("cat_id")
%> 
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0">
  <tr> 
         <!-- #include file="inc/menu.asp" -->
    <td width="215" rowspan="2"><img src="images/pics/welcome-index.jpg" width="215" height="59"></td>
  </tr>
  <tr>
    <td height="29" background="images/pics/location-back.jpg">
      <table width="100%" cellspacing="0" cellpadding="0" border="0">
        <tr> 
          <td height="29" width="5%" rowspan="2">&nbsp;</td>
          <td height="7" width="95%" class="F2"></td>
        </tr>
<%
sql="select * from source "
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
%>
        <tr>
          <td height="22" width="95%" class="F2"></td>
        </tr>
  <%
Rscat.close
set Rscat = nothing
%>
      </table>
    </td>
  </tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" background="images/pics/content-topback.jpg" border="0">
  <tr> 
    <td height="59" width="40" rowspan="2"><img src="images/pics/contentback-lefttop.jpg" width="40" height="59"></td>
    <td height="23" width="38">&nbsp;</td>
    <td height="59" rowspan="2" width="14">&nbsp;</td>
    <td height="20" rowspan="2" valign="bottom"> 
  <table width="100%" cellspacing="0" cellpadding="0" border="0">
 <% Set rss=Server.CreateObject("ADODB.RecordSet") 
sql="select * from source where source_title<>'"&year(date())&"'"
rss.Open sql,conn,1,1if rss.eof and rss.bof then
response.Write("")
else
%>
        <tr> <% do while not  rss.eof%>
          <td height="30" class="F4">
  <table border="0" width="100%"><tr><td ><a href="showsource.asp?source_title=<%=rss("source_title")%>"><%=rss("source_title")%>年开奖记录</a></td></tr></table>  <%rss.movenext
 
      loop
 end if%></td>
        </tr>
      </table></td>
    <td height="59" width="215" rowspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td height="36" width="38"> <div align="right"><img src="images/pics/dot1.jpg" width="16" height="16"></div></td>
  </tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="20" background="images/pics/content-leftback.jpg">&nbsp;</td>
    <td width="760" valign="top"> 
           <table width="99%" cellspacing="0" cellpadding="2" border="0" align="center">
   <tr><td height=2></td></tr>
        <tr> 
          <td height="440" valign="top" class="content"><%=rs("source_content")%></td>
        </tr>
      </table>
      <table width="100%" cellspacing="0" cellpadding="0" border="0">
        <tr> 
          <td height="15"></td>
        </tr>
      </table>
    </td>  </tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0" background="images/pics/content-bottomback.jpg">
  <tr> 
    <td height="40" width="40"><img src="images/pics/contentback-leftbottom.jpg" width="40" height="40"></td>
    <td height="40" width="700">&nbsp;</td>
    <td height="40" width="40"><img src="images/pics/contentback-rightbottom.jpg" width="40" height="40"></td>
  </tr>
</table>
<!-- #include file="inc/bottom.asp" -->
</BODY>
</HTML>