T
thecubemonkey
Hi everyone,
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.asp, line 57
Can you look at the code below and let me know if the problem is my
code or if there is a server setting that needs adjustment. Thanks.
__________________________________________________________________________
I am using a global.asa file with:
SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Departments
\MBA_UBALT\newsite\faq.mdb"
Application("strConn") = strConn
End Sub
</SCRIPT>
The ASP page code is:
<%
Dim rsFAQ
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
rsFAQ.Open "FAQ", Application("strConn"), adOpenKeyset,
adLockReadOnly, adCmdText
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
%>
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.asp, line 57
Can you look at the code below and let me know if the problem is my
code or if there is a server setting that needs adjustment. Thanks.
__________________________________________________________________________
I am using a global.asa file with:
SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Departments
\MBA_UBALT\newsite\faq.mdb"
Application("strConn") = strConn
End Sub
</SCRIPT>
The ASP page code is:
<%
Dim rsFAQ
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
rsFAQ.Open "FAQ", Application("strConn"), adOpenKeyset,
adLockReadOnly, adCmdText
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
%>