Exception occurred.

lslars31 · #1 (**permalink**) 07-21-03, 12:06

Heres the code:

Code:

<%
    'Dimension variables
    Dim adoCon
    Dim strAccessDB
    Dim rs
    Dim strSQL

    Set adoCon = Server.CreateObject("ADODB.Connection")

    strAccessDB = "news"

    adoCon.open = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=********; DBQ=" & Server.MapPath(strAccessDB)

    Set rs = Server.CreateObject("ADODB.Recordset")

    strSQL = "SELECT tblUsers.* FROM tblUsers WHERE tblUsers.Username='" & Username & "'"

    rs.Open strSQL, adoCon

If Request.QueryString("Page") = "au" THEN
  If Request.QueryString("UN") = rs("Username") THEN
    If Request.QueryString("ID") = rs("ID_no") THEN

Responce.Redirect("add_user.asp")

    End If
  End If
End If

Responce.Redirect("no_access.asp?")
%>

Why is it saying:

error '80020009'
Exception occurred.

????

Memnoch1207 · #2 (**permalink**) 07-23-03, 01:19

first check to make sure you have a connection

Code:

If(adoCon.state = 1) then
   Response.write("Connection is open")
else
   Response.write("Connection is closed")
end if

then
check the query...try running the query from within the database itself

where are you getting the Username variable from???

Code:

strSQL = "SELECT * FROM tblUsers WHERE Username = '" & Request.Form("Username") & "'"

lslars31 · #3 (**permalink**) 07-23-03, 12:31

Thanks...

I figured it out...
The problem was that I uploaded the wrong database.

LoL

I have two of the same one except they are different.
I hate when that happens.

soyadude · #4 (**permalink**) 08-31-03, 08:20

The line that seems to be giving the problem is

If rsCheckUser("Status")= 1 Then

The thing is, it used to work before, the next day, it didn't work. The normal user's log in works fine, but I dunno bout the admin login. Argh. Help me please!

If (Request.Form("password")) = rsCheckUser("OldPassword") Then
Session("logged") = True
Session("username") = Request.Form("username")
rsCheckUser.Close
rsCheckUser.Open strStatus, strCon
If rsCheckUser("Status")= 1 Then
Response.Redirect"adminhome.asp"
Session("admin") = True
rsCheckUser.Close
End if
Response.Redirect"home.asp?"
Else
Response.Redirect("login.asp?error=" & 1)
End If

The Error Message:

Error Type:
(0x80020009)
Exception occurred.
/loginvalidate.asp, line 45

Internet Services

Web Development

Digital Marketing

Consumer Tech