ASP+access高手给我看看啊,我不知道怎么改拉

我是一个页面调用俩个表,表1manage 表2detail 现在总出错,不知道怎么改拉,求各位高手棒棒忙dim rs1,rs2,sql,sql1 
'表1 star 
set rs1 = Server.CreateObject("ADODB.Recordset") 
if Event_type="ALL" Then 
sql="select * from manage where stat<>-9999" 
else 
sql="select * from manage where stat=0" 
end if 
sql=sql&" and dept="&session("dept") 
rs1.open sql&" Order by id Desc",conn,1,1 
did=rs1("id") 
'表2 star 
set rs2 = Server.CreateObject("ADODB.Recordset") 
sql1="select top 1 * from Detail where reg=" & did 
rs2.open sql1&" Order by time Desc",conn,1,1
IF Rs1.Eof Then 
Rs1.Close 
Set Rs1=Nothing 
Response.Write "<tr align=center><td colspan=7 align=left valign=middle > There is nothing in Database!</td></tr>" 
Else 
rs1.pagesize=40           rs1.AbsolutePage=pagecount 
    
temp=rs1("groupid") Do While Not(Rs1.Eof) 
  
  
'Memo start 
if len(rs1("memo"))>10 then 
memo=mid (rs1("memo"),1,10)&".." 
 else 
memo=mid (rs1("memo"),1,10) 
 end if 
'Memo End 
'Memo1 start 
if len(rs2("memo1"))>4 then  -->总是显示这行出错,(0x80020009)发生意外 
memo1=mid (rs2("memo1"),1,4)&".." 
 else 
memo1=mid (rs2("memo1"),1,4) 
 end if 
'Memo1 End  if rs1("groupid")=temp  then 
color=color 
else   if color="" then 
  color="f2f2f2" 
  else 
  color="" 
  end if 
temp=rs1("groupid") 
end if 
nowday=now() 
crday=rs1("cr_date") 
daycolor="#FF0000" 
 if rs1("stat")=1 then 
  nowday=rs1("fi_date") 
  daycolor="" 
 end if 
day1=nowday - crday 
days=cint(day1) 
  
 Response.Write "<tr><td bgcolor="&color&" ><span class=STYLE1>"&Rs1("Room_number")&" </span></td><td bgcolor="&color&"><span class=STYLE1>"&statuv(rs1("stat"))&"</span></td><td bgcolor="&color&">"&rs1("cr_date")&"</td><td bgcolor="&color&"><a title=IP:"&rs1("ip_add")&">"&rs1("crusername")&"</a></td><td bgcolor="&color&" ><span class=STYLE1><font color="&Daycolor&"><div align=center>"&days&" </div></font></td><td bgcolor="&color&"><span class=STYLE1>"&rs1("eq_de")&"</span></td><td bgcolor="&color&"><span class=STYLE1>"&memo&"</span></td><td bgcolor="&color&"><span class=STYLE1><a href=upnew.asp?id="&rs2("reg")&">"&memo1&"</a></span></td><td bgcolor="&color&"><a href=modify.asp?id="&rs1("id")&">详情</a></td></tr>" 
         
    
      iiii=iiii+1 
       IF iiii>=rs1.pagesize Then 
         Exit Do 
      End If   
           Rs1.Movenext 
      Loop 
                  
%> 
      <tr align="center"> 
       <td colspan="7" align="left" valign="middle" ><%response.write(rs1.recordcount)%> 
         records 
         <div align="center"><span class="unnamed1">Page <font color="#FF0000"><b><%=CINT(PAGE)%> </b></font> of 
           <%response.write(rs1.PageCount)%> 
           - 
           <% if pagecount=1 and rs1.pagecount<>pagecount and rs1.pagecount<>0 then%> 
           <a href="index.asp?page=<%=cstr(pagecount+1)%>">Next </a> 
           <% end if %> 
           <% if rs1.pagecount>1 and rs1.pagecount=pagecount then %> 
           <a href="index.asp?page=<%=cstr(pagecount-1)%>">Previous</a> 
           <%end if%> 
           <% if pagecount<>1 and rs1.pagecount<>pagecount then%> 
           <a href="index.asp?page=<%=cstr(pagecount-1)%> ">Previous</a> &nbsp; <a href="index.asp?page=<%=cstr(pagecount+1)%>">Next</a> 
           <% end if 
     %> 
      </span></div></td> 
      </tr> 
    </table> 
  </center> 
</div></body> 
</html><% 
rs1.close 
rs2.close 
set rs1=nothing 
set rs2=nothing 
conn.Close 
set conn=nothingEnd IF 
end if 
%>