error '80020009' Exception occurred.

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 426,187 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,814 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

Thread Tools Display Modes

Views: 3110 | Replies: 2

•

Join Date: Jan 2007

Posts: 2

Reputation: quicknk is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

quicknk

Offline

Newbie Poster

error '80020009' Exception occurred.

Jan 31st, 2007

For some reason I keep getting the following error:

Help with Code Tags

asp Syntax (Toggle Plain Text)

error '80020009' Exception occurred.

It applies to the line of code:

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
    If (cInt(objRS("User_ID")) = Cookie_ID) Then
    If (cInt(objRS("User_ID")) = Cookie_ID) Then

for some reason it freaks out with "cInt(objRS("User_ID"))" when it runs through the db to find a User ID that matches that in their cookie. I have also found that if I alter the code, remove cInt(objRS("User_ID"))" from the above line of code, and add in an incremental integer based variable, it seems to work fine. I know it's not compairing the info from the DB, but this was the way I found what was causing the problem.

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
Dim conn, mydb
mydb=server.mappath("\fpdb\temp.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open mydb
 
Dim objRS, bolFound
 
set objRS = Server.CreateObject("ADODB.recordset")
objRS.Open "User_Info", conn, , 3, 2 
 
bolFound = False
 
Do Until objRS.EOF or bolFound
    If (cInt(objRS("User_ID")) = Cookie_ID) Then
        BolFound = True
    Else
        objRS.MoveNext
    End If
 
Loop
Dim conn, mydb
mydb=server.mappath("\fpdb\temp.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open mydb

Dim objRS, bolFound

set objRS = Server.CreateObject("ADODB.recordset")
objRS.Open "User_Info", conn, , 3, 2 

bolFound = False

Do Until objRS.EOF or bolFound
    If (cInt(objRS("User_ID")) = Cookie_ID) Then
        BolFound = True
    Else
        objRS.MoveNext
    End If

Loop

•

Join Date: Sep 2004

Location: Plymouth, UK

Posts: 79

Reputation: msaqib is an unknown quantity at this point

Rep Power: 5

Solved Threads: 1

msaqib

Offline

Junior Poster in Training

Re: error '80020009' Exception occurred.

Feb 2nd, 2007

Try to find out whether objRS("User_ID") has some records or not? Another thing is the data type of User_ID, is it int?

Mostly this exception occurs if you try to casst different data types of variables.

C and C++ Programming resources and tutorials

Muhammad Saqib

•

Join Date: Jan 2007

Posts: 2

Reputation: quicknk is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

quicknk

Offline

Newbie Poster

Re: error '80020009' Exception occurred.

Feb 2nd, 2007

•

Originally Posted by msaqib

Try to find out whether objRS("User_ID") has some records or not? Another thing is the data type of User_ID, is it int?

Mostly this exception occurs if you try to casst different data types of variables.

cool, thanks. I figured out yesterday. The Access DB file had held on to a deletion from it's original programer leaving a "#deleted" in all fields for that spacific record. Causing the int data type for the User_ID to have an error. Im wasn't sure why it holds on to this deletion note, and it would not allow me to remove this record at all. I had to export it as a new Access DB file and then it allowed me to remove this record.

thanks again.