ADODB.Recordset Error on wrong line????

Greywacke · December 4th, 2003, 06:54 AM

hi all...

okay here is the prob...
i get this error on the page:

Code:

ADODB.Recordset error '800a0bb9' 
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 
/ssi/subroutines.asp, line 1216

now the line 1216 in that asp file is:

Code:

enc_tmp = e & "; N/A"

which is not ADODB.Recordset at all :/ the possible error could be in this line (1220):

Code:

gwRS.Open "transactions", gwConn, adOpenDynamic, adLockOptimistic, adCmdTable

now i have included the ADODB Metadata in the global.asa for the variables, and the table name is the exact name of the table, also gwConn is a valid connection...

the only other possible error could be on this line in a function which was called in a previous version of the page:

Code:

enc_tmp = Crypto(e, key)

here i paste the Crypto function:

Code:

Function Crypto(Input, Key)
    Dim i, n, cypher, gwRS, crypt_id, encrypted, char, parsed, return
    return = "; "
    return = Split(return, "; ")
    Set gwRS = Server.CreateObject("ADODB.Recordset")
    gwRS.Open "cryptography", gwConn, adOpenDynamic, adLockOptimistic, adCmdTable
    If Key = "" Then    ' Encrypt
        cypher = GenKey(CypherStrength)
        return(0) = EnCrypt(Input, cypher)
        Do While (InStr(return(0),"; ") > 0)
            cypher = GenKey(CypherStrength)
            return(0) = Encrypt(Input, cypher)
        Loop
        gwRS.AddNew
            gwRS("crypt_key") = cypher
        gwRS.Update
        return(1) = CStr(gwRS("crypt_id"))
    Else                ' Decrypt
        gwRS.Find("crypt_id = " & Key)
        If Not gwRS.EOF Then
            cypher = gwRS("crypt_key")
            return(0) = DeCrypt(Input, cypher)
            return(1) = "1"
        Else
            return(0) = "(Key Not Found)"
            return(1) = "0"
        End If
    End If
    Crypto = Join(return, "; ")
End Function

i have been bugged by this problem since last week friday (28 november i think), it is now almost a week (today is 4 december, tomorrow it will have been 7 days!) that i am stuck... any swift help on this problem would really be appreciated...

Sincerely,
Pierre du Toit.

Imar · December 4th, 2003, 07:00 AM

Hi there,

Take a look at this FAQ: http://www.adopenstatic.com/faq/800a0bb9.asp

Cheers,

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

stacy · January 20th, 2004, 09:58 PM

I was just wondering if you ever found out what the problem was? I have the same problem right now with one of my pages... Maybe you can help?

<%
    Dim rsUsers
    Set rsUsers = Server.CreateObject("ADODB.Recordset")
    rsUsers.Open "Person", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable

    If Session("PersonID") <> "" Then
        rsUsers.Filter = "PersonID = '" & Session("PersonID") & "'"
    Else
        rsUsers.Filter = "EMailAddress = '" & Request.Form("email") & "'" & _
                        "AND Password = '" & Request.Form("password") & "'"
        If rsUsers.EOF Then
            rsUsers.AddNew
        End If
    End If

DaveGerard · February 20th, 2004, 05:19 PM

Line 1216 will represent the line number of the page that your web server returns, not the line number of the page you are working on. View the source of the returned page and let us know what that line reads.

DaveGerard · February 23rd, 2004, 11:01 AM

Where is the connection string (gwConn) in your page? If the connection doesn't exeist you could verywell get that error.