I get the following error: Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/myweb4/authorised_user _page.asp, line 70
and line 70 of my code is: <% rsCheckUser1.Op en strSQL1,
strcon1 %>
Here is the full code:
%
dim adocon1
dim strcon1
Dim rsCheckUser1 'Database Recordset variable
Dim strAccessDB1 'Holds the Access Database Name
dim strSQL1 'Database query String
Dim strUserName 'Holds the name of the user
'Check the database to see if user exsits and read in
there password
'Initialise the strAccessDB variable with the name of the
Access Database
strAccessDB1 = "users"
'Create a connection odject
set adocon1 = Server.CreateOb ject("ADODB.Con nection")
'Database connection info and driver
strcon1 = "DRIVER={Micros oft Access Driver
(*.mdb)};uid=;p wd=letmein; DBQ=" & Server.MapPath
(strAccessDB1)
'Set an active connection to the Connection object
adocon1.open strcon1
'Create a recordset object
set rsCheckUser1 = Server.CreateOb ject("ADODB.Rec ordset")
'If the session variable is False or does not exsist then
redirect the user to the unauthorised user page
If Session("blnIsU serGood") = False or IsNull(Session
("blnIsUserGood ")) = True then
'Redirect to unathorised user page
Response.Redire ct"unauthorised _user_page.htm"
End If
%>
<html>
<head>
<title>Authoris ed User</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
'Get the users name passed from the previous page
<% strUserName = Request.QuerySt ring("name") %>
</head>
<body bgcolor="#FFFFF F" text="#000000">
<!--
<table width="518" border="0" cellspacing="0"
cellpadding="0" align="center">
<tr>
<td align="center">
<h1>Authorise d Access</h1>
</td>
</tr>
</table>
<div align="center">
<p><br>
Welcome <b>
<% =strUserName %>
</b> to the password proteceted area of the web site.
</p>
<p> </p>
-->
<%
strSQL1 = "select tblresults.user id,
tblresults.date , tblresults.bf, tblresults.prot eins,
tblresults.othe rsolids from tblresults where
tblresults.user id='" & strusername & "'" %>
'Query the database
<% rsCheckUser1.Op en strSQL1, strcon1 %>
<p>
<table>
<%do while not rscheckuser1.eo f%>
<tr><td><%respo nse.write rscheckuser1
("UserID") %></td></tr>
<tr><td><%respo nse.write rscheckuser1
("Date") %></td></tr>
<tr><td><%respo nse.write rscheckuser1
("BF") %></td></tr>
<tr><td><%respo nse.write rscheckuser1
("Proteins") %></td></tr>
<tr><td><%respo nse.write rscheckuser1
("OtherSolid s") %></td></tr>
<tr><td><hr></td></tr>
<%
rscheckuser1.mo venext
loop
%>
</table>
</p>
</div>
</body>
</html>
The only thing I am doing is bringing in the username
value from the previous page and using that value to find
all the records and display them on the current web
page. I do not see what is wrong with my code. If
anyone could please help.
