Asp Error: Microsoft VBScript runtime (0x800A01A8) Object required: ''

[Genken]

Hi can anybody help me i get this error when running this code.
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.

<%@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
%>

[cyberdawg999]

unfortunately this is not a help response but I am also having the same problem with the following code
the error is on line 29

i hate to do this but i just saw the heading and I didnt want to start a new thread with this same problem
code: (asp)

<%@ Language = "VBScript" %>
<% Option Explicit%>
 
<!--#include virtual="/includes/adovbs.inc"-->
<!--#include virtual="/salesdesk/includes/Maint_ConnectADO.asp"-->
<!--#include virtual="/salesdesk/includes/access_control.asp"-->
 
<%dim connection%>
<%dim sSQL,sConnString, obj_connection%>
 
<%if request.form("isSubmitted") = "yes" then
 
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ= " & Server.MapPath("/salesdesk/database/Saleshelpdesk.mdb") & ";"
Set obj_connection = Server.CreateObject("ADODB.Connection")
obj_connection.Open(sConnString)
'call openconnection()
sSQL="INSERT INTO tblTest(CompletedForm, AddClient) " _
&"VALUES ('" &request.form("CompletedForm") &"' , '" _
& request.form("AddClient") & "')"
 
obj_connection.execute(sSQL)
 
end if
If err.number=0 Then
response.write "the data was inserted successfully."
End If
 
obj_connection.Close
Set obj_connection = Nothing
response.redirect = "helplist.asp" 
'call closeconnection()
%>
 
 

[jhardman]

If I count correctly, then the error is on the line that closes the connection. Is this right? It is not necessary to close the connection, all connections are closed at the end of the script automatically, so if this is indeed where the error comes up, you can just delete that line

Jared

[cyberdawg999]

hi j

i hope you were talking about my code(cyberdawg)

if you were i removed the closeconnection() method from the code
my response.write statement appears when you click submit
but the checkbox data does not send the data to the table in my database.

[Genken]

I resolved my error thankyou very much but i did not delete my close connection code.

What i did was rewrite my query in my database and updated it on the webserver. That seemed to correct my error.

Thankyou Anyway.