ADODB.Recordset error '800a0bb9'

Report · Dec 05, 2008

I have created a "contact us" page in (asp) that inserts a record to ms access database (.mdb) on the server. I am running windows Vista and IIS7. Everyone has access to read and write in the directory that the database is stored in. When I go to http://localhost/domainname/contactus/index.asp, I type in the necessary information and hit the "insert record". I then get the following error:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/domaininname/thankyou/index.asp, line 8

Once the "contact us" form is submitted, a "thank you" page is supposed to load, but instead I get the error. Something worth mentioning though, the database does get updated with the information supplied to the form, but why the error and not the "thank you" page? I am not sure as to how much code is relevant to help trouble-shoot, so I have decided to involve the first 70 or so lines of code, and noted where line 8 is in my code.

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery < ----- Line 8 in my code
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_connName_STRING
MM_editTable = "tbl_contactus"
MM_editRedirectUrl = "../thankyou/index.asp"
MM_fieldsStr = "firstName|value|lastName|value|phoneNumber|value|emailAddress|value|provideMessage|value"
MM_columnsStr = "firstName|',none,''|lastName|',none,''|phoneNumber|',none,''|emailAddress|',none,''|provideMessage|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
Text (I have highlighted line 8 in bold)

Report · Dec 05, 2008

I figured out the issue. Instead of going on, I thought it would be good to supply the resolution I found.

Turns out, I was using an incorrect connection string on the "thank you" page. Actually, there didn't need to be a connection string, as I didn't need a record set either. I deleted the record set from the "thank you" page, that deleted the incorrect connection string in the "thank you" page, and wammo, my "contact us" page works and the "thank you" page loads.

Have a wonderful day!