ADODB.Field 错误
错误以下:
Microsoft   VBScript   编译器错误   错误   '800a03f6 '  
缺少   'End '  
/iisHelp/common/500-100.asp，行242  
ADODB.Field   错误   '80020009 '  
BOF   或   EOF   中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。  
/dgkj/messenger.asp，行0  

代码如下:
<!--#include   file= "top.asp "   -->
<%  
if   request( "del ") <> " "   then  
call   del
end   if
function   del
sql2= "delete   from   messenger   where   messenger_id= "&request( "del ")
conn.Execute(sql2)
end   function

set   rs=server.createobject( "adodb.recordset ")  
sql= "SELECT   *   FROM   messenger     where   messenger_jieshou= ' "   &   Session( "user_name ")   &   " '   order   by   messenger_id   desc "  
rs.Open   sql,conn,1,3
%>
<link   href= "css/font.css "   rel= "stylesheet "   type= "text/css "   />
<div   align= "center ">
    <table   width= "756 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
        <!--DWLayoutTable-->
        <tr>
            <td   width= "13 "   height= "20 "   > &nbsp; </td>
            <td   width= "180 "   rowspan= "2 "   valign= "top "   > <table   width= "100% "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                    <!--DWLayoutTable-->
                    <tr>
                        <td   width= "180 "   height= "534 "   valign= "top "   bgcolor= "#3696e8 "> <!--#include   file= "left.asp "--> </td>
                    </tr>
                   
                        </table> </td>
            <td   width= "43 "   align= "left "   valign= "top "   background= "image/main_1.gif "   > <!--DWLayoutEmptyCell--> &nbsp; </td>
            <td   width= "506 "   align= "left "   valign= "middle "   background= "image/main_2.gif "   class= "biaoti "   > 你的位置： <a   href= "index2.asp "   class= "lian "> 首页 </a>   &gt;   <a   href= "messenger.asp "   class= "lian "> 即时信息   </a> </td>
            <td   width= "14 "> </td>