Hi All,
I get the error :
Code:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/shipslip.asp, line 15
when executing a script I am running.
The file is as follows:
Code:
shipslip.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/packslip.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_packslip_STRING
Recordset1.Source = "SELECT * FROM orders WHERE orderid = " + Replace(Recordset1__MMColParam, "'", "''") + ""
'Recordset1.Source = "SELECT * FROM orders WHERE orderid = '2'"
Recordset1.CursorType = 2
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
The included file, Connections\packslip.asp is as follows:
Code:
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_packslip_STRING
MM_invoice_STRING = "DRIVER={MySQL}; SERVER=#####; DATABASE=temple; User=#####;PASSWORD=#####; OPTION=3;"
%>
Can anybody offer any assistance with this error?
Thanks in advance,
Jon