I'm having an issue with connecting to an Access DB. I'm getting 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.
/newsite/faq_test.asp, line 57
Can you look at the code in both my global.asa and ASP file to see if
the problem is my code or a setting on the server. Thanks in advance.
_______________ _______________ _______________ _______________ ____________
Global.asa
SCRIPT LANGUAGE="VBScr ipt" RUNAT="Server">
Sub Application_OnS tart()
Dim strConn
strConn = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=D:\..... \.....
\......\faq.mdb "
Application("st rConn") = strConn
End Sub
</SCRIPT>
_______________ _______________ _______________ _______________ _____________
ASP File
<%
Dim rsFAQ
Set rsFAQ = Server.CreateOb ject("ADODB.Rec ordset")
rsFAQ.Open "FAQ", Application("st rConn"), adOpenKeyset,
adLockReadOnly, adCmdText
Response.Write "DEBUG"
Do While Not rsFAQ.EOF
Response.Write "<li><b>" & rsFAQ("Question ") & "</b>"
Response.Write "<p>" & rsFAQ("Answer") & "</p></li>"
rsFAQ.MoveNext
Loop
If rsFAQ.BOF Then
Response.Write "<p>No FAQs in the database!</p>" & vbNewLine
End If
rsFAQ.Close
%>
following error:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are
in conflict with one another.
/newsite/faq_test.asp, line 57
Can you look at the code in both my global.asa and ASP file to see if
the problem is my code or a setting on the server. Thanks in advance.
_______________ _______________ _______________ _______________ ____________
Global.asa
SCRIPT LANGUAGE="VBScr ipt" RUNAT="Server">
Sub Application_OnS tart()
Dim strConn
strConn = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=D:\..... \.....
\......\faq.mdb "
Application("st rConn") = strConn
End Sub
</SCRIPT>
_______________ _______________ _______________ _______________ _____________
ASP File
<%
Dim rsFAQ
Set rsFAQ = Server.CreateOb ject("ADODB.Rec ordset")
rsFAQ.Open "FAQ", Application("st rConn"), adOpenKeyset,
adLockReadOnly, adCmdText
Response.Write "DEBUG"
Do While Not rsFAQ.EOF
Response.Write "<li><b>" & rsFAQ("Question ") & "</b>"
Response.Write "<p>" & rsFAQ("Answer") & "</p></li>"
rsFAQ.MoveNext
Loop
If rsFAQ.BOF Then
Response.Write "<p>No FAQs in the database!</p>" & vbNewLine
End If
rsFAQ.Close
%>