Microsoft VBScript runtime error ’800a01a

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   My error is:
Microsoft VBScript runtime error '800a01a8' 

Object required 
/inbox.asp, line 267
I get this error when running the file inbox.asp The source code is:
<%
Option Explicit
Dim sql, username, rsMessages, rsAdminMessages, rsMessageRead, newcount, rsUser
username = Request.Cookies("username")
if username = "" then
  Response.Redirect("nologin.asp?page=inbox.asp")
end if
%>
<!--#include file="conn.asp"-->
<%
  sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
  
  sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
  Set rsMessages = Server.CreateObject("ADODB.Recordset")
  rsMessages.Open sql, conn, 3, 3
  
  newcount = 0
  if not rsMessages.EOF then
 rsMessages.Movefirst
 do until rsMessages.EOF
  if rsMessages("messageread") = False then
   newcount = newcount + 1
  end if
  rsMessages.Movenext
 loop
 rsMessages.Movefirst
  end if
%>
<%
sql = "SELECT Messages.*, icon FROM Users INNER JOIN Messages ON Users.username = Messages.sentfrom WHERE sendto = '" & username & "' ORDER BY datesent DESC"
Set rsMessages = Server.CreateObject("ADODB.Recordset")
rsMessages.Open sql, conn, 3, 3
'Count the amount of new messages
newcount = 0
if not rsMessages.EOF then
 rsMessages.Movefirst
 do until rsMessages.EOF
  if rsMessages("messageread") = False then
   newcount = newcount + 1
  end if
  rsMessages.Movenext
 loop
 rsMessages.Movefirst
end if
sql = "SELECT * FROM messages WHERE sentfrom = 'site admin' AND  sendto = '" & username & "' ORDER BY datesent DESC"
Set rsAdminMessages = Server.CreateObject("ADODB.Recordset")
rsAdminMessages.Open sql, conn, 3, 3
if not rsAdminMessages.EOF then
 rsAdminMessages.Movefirst
 do until rsAdminMessages.EOF
  if rsAdminMessages("messageread") = False then
   newcount = newcount + 1
  end if
  rsAdminMessages.Movenext
 loop
 rsAdminMessages.Movefirst
end if
%>
<html>
<head>
<title>Inbox</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="0" bordercolor="#333333">
  <!--DWLayoutTable-->
  <tr bgcolor="#CCCCCC"> 
    <td height="119" colspan="3"><div align="center"><img src="title.gif" width="734" height="119"> 
      </div></td>
  </tr>
  <tr> 
    <td height="38" colspan="3" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr> 
    <td width="184" height="461" valign="top"><table width="184" border="1" cellpadding="3" cellspacing="0" bordercolor="#000000">
        <!--DWLayoutTable-->
        <th bgcolor="#CCCCCC"><div align="center"><font face="Geneva, Arial, Helvetica, sans-serif" size=2 color="#000000">Menu</font></div></th>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"> <div align="left"> 
              <p align="center"><font face="arial,helvetica" size=2> <a href="index.asp">Home</a></font></p>
              <p align="center"><font size="2" face="arial,helvetica"><a href="webdesign.asp">Web 
                Design</a></font></p>
              <p align="center"><font size="2" face="arial,helvetica"><a href="software.asp">Software</a></font></p>
              <p align="center"><font size="2" face="arial,helvetica"><a href="members.asp">Members</a></font></p>
              <p align="center"><font size="2" face="arial,helvetica"><a href="contact.asp">Contact</a></font></p>
              <p align="center"><font size="2" face="arial,helvetica"><a href="about.asp">About</a></font></p>
            </div></td>
        </tr>
        <tr> 
          <th bgcolor="#CCCCCC"><div align="center"><font face="Geneva, Arial, Helvetica, sans-serif" size=2 color="#000000">Ads</font></div></th>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"> <div align="center"> 
              <p>&nbsp;</p>
              <p><img src="freesitee.gif" width="88" height="31"></p>
              <p><font face="arial,helvetica" size=2> <a href="