Web Wiz Forums - Microsoft VBScript runtime error ’800a01a

Print Page | Close Window

Microsoft VBScript runtime error ’800a01a

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums
Forum Description: Support forum for Web Wiz Forums application.
URL: https://forums.webwiz.net/forum_posts.asp?TID=2037
Printed Date: 30 March 2026 at 10:08pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Microsoft VBScript runtime error ’800a01a

Posted By: earnie
Subject: Microsoft VBScript runtime error ’800a01a
Date Posted: 24 April 2003 at 1:29am

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

%>

<%
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">

<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"> </td>
</tr>
<tr>
    <td width="184" height="461" valign="top"><table width="184" border="1" cellpadding="3" cellspacing="0" bordercolor="#000000">
        
        <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> </p>
              <p><img src="freesitee.gif" width="88" height="31"></p>
              <p><font face="arial,helvetica" size=2> <a href="http://www.shorturl.com/ref/in.cgi?webscript.vze.com">http://www.shorturl.com/ref/in.cgi?webscript.vze.com"><img src="shorturl.gif" width="88" height="31" border="0"></a>
                </font></p>
            </div></td>
        </tr>
      </table></td>
    <td width="594" valign="top"><blockquote>
        <p> </p>
        <table width="450" cellspacing=0 cellpadding=3 border=1 bordercolor="#000000">
          <tr bgcolor="#000000">
            <th align="left" bgcolor="#CCCCCC"><font face="arial,helvetica" size=2 color="#00000">
              <font color="#000000"><%=username%>'s inbox - new messages: </