commandprompt
New Member
This is the error message i get;
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/logon_process.asp, line 9
this is the code; (I just cannot see it?) line 9 is in red!
<%@ Language=VBScript %>
<%
Dim str_conx, conx, LogonRs
set conx=Server.CreateObject("adodb.connection")
conx.Provider="Microsoft.JET.OLEDB.4.0"
conx.Open("d:\hosting\abrewitt\access_db\blogdb.mdb")
LogonRs.Open "SELECT * from logon WHERE user_name='" & _
request("txtname") & "'" & " AND user_password='" & _
request("txtnassword") & "'",conx,adOpenKeyset,adLockOptimistic
If LogonRs.RecordCount=1 Then ' user has been validated...
' set session variable to be true (true for time user is logged in)
session("loggedin") = TRUE
session("usr_accesslevel") = LogonRs("user_access")
session("usr_name") = LogonRs("user_fullname")
session("usr_initials") = LogonRs("user_initials")
Else
' maintain "false" status
session("loggedin")=FALSE
' inform user that attempt has been unsuccessful
Response.Redirect("logonfail.asp")
End If
Response.Redirect("default.asp")
%>
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/logon_process.asp, line 9
this is the code; (I just cannot see it?) line 9 is in red!
<%@ Language=VBScript %>
<%
Dim str_conx, conx, LogonRs
set conx=Server.CreateObject("adodb.connection")
conx.Provider="Microsoft.JET.OLEDB.4.0"
conx.Open("d:\hosting\abrewitt\access_db\blogdb.mdb")
LogonRs.Open "SELECT * from logon WHERE user_name='" & _
request("txtname") & "'" & " AND user_password='" & _
request("txtnassword") & "'",conx,adOpenKeyset,adLockOptimistic
If LogonRs.RecordCount=1 Then ' user has been validated...
' set session variable to be true (true for time user is logged in)
session("loggedin") = TRUE
session("usr_accesslevel") = LogonRs("user_access")
session("usr_name") = LogonRs("user_fullname")
session("usr_initials") = LogonRs("user_initials")
Else
' maintain "false" status
session("loggedin")=FALSE
' inform user that attempt has been unsuccessful
Response.Redirect("logonfail.asp")
End If
Response.Redirect("default.asp")
%>