Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
And then a line number indicating where the error is, i cant see any errors with this code please assist.
Thanks in advance.
Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
- <%
- Dim QryDisplay__MMColParam
- QryDisplay__MMColParam = "1"
- If (Request.QueryString("Application_id") <> "") Then
- QryDisplay__MMColParam = Request.QueryString("Application_id")
- End If
- %>
- <%
- Set objconn = Server.CreateObject("ADODB.Connection")
- objconn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("myPath")
- objconn.Open
- %>
- <%
- Dim QryDisplay
- Dim QryDisplay_numRows
- Set QryDisplay = Server.CreateObject("ADODB.Recordset")
- QryDisplay.ActiveConnection = objconn
- QryDisplay.Source = "SELECT * FROM QueryDisplayFields WHERE Application_id = " + Replace(QryDisplay__MMColParam, "'", "''") + ""
- QryDisplay.CursorType = 0
- QryDisplay.CursorLocation = 2
- QryDisplay.LockType = 1
- QryDisplay.Open()
- QryDisplay_numRows = 0
- %>