472,965 Members | 2,294 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,965 software developers and data experts.

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

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.

Expand|Select|Wrap|Line Numbers
  2. <%
  3. Dim QryDisplay__MMColParam
  4. QryDisplay__MMColParam = "1"
  5. If (Request.QueryString("Application_id") <> "") Then 
  6.   QryDisplay__MMColParam = Request.QueryString("Application_id")
  7. End If
  8. %>
  9. <%
  10. Set objconn = Server.CreateObject("ADODB.Connection")
  11. objconn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("myPath")
  12. objconn.Open
  14. %>
  15. <%
  16. Dim QryDisplay
  17. Dim QryDisplay_numRows
  19. Set QryDisplay = Server.CreateObject("ADODB.Recordset")
  20. QryDisplay.ActiveConnection = objconn
  21. QryDisplay.Source = "SELECT * FROM QueryDisplayFields WHERE Application_id = " + Replace(QryDisplay__MMColParam, "'", "''") + ""
  22. QryDisplay.CursorType = 0
  23. QryDisplay.CursorLocation = 2
  24. QryDisplay.LockType = 1
  25. QryDisplay.Open()
  27. QryDisplay_numRows = 0
  28. %>
Jul 3 '07 #1
4 8779
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)
Expand|Select|Wrap|Line Numbers
  1. <%@ Language = "VBScript" %>
  2. <% Option Explicit%>
  4. <!--#include virtual="/includes/adovbs.inc"-->
  5. <!--#include virtual="/salesdesk/includes/Maint_ConnectADO.asp"-->
  6. <!--#include virtual="/salesdesk/includes/access_control.asp"-->
  8. <%dim connection%>
  9. <%dim sSQL,sConnString, obj_connection%>
  11. <%if request.form("isSubmitted") = "yes" then
  13. sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
  14. "DBQ= " & Server.MapPath("/salesdesk/database/Saleshelpdesk.mdb") & ";"
  15. Set obj_connection = Server.CreateObject("ADODB.Connection")
  16. obj_connection.Open(sConnString)
  17. 'call openconnection()
  18. sSQL="INSERT INTO tblTest(CompletedForm, AddClient) " _
  19. &"VALUES ('" &request.form("CompletedForm") &"' , '" _
  20. & request.form("AddClient") & "')"
  22. obj_connection.execute(sSQL)
  24. end if
  25. If err.number=0 Then
  26. response.write "the data was inserted successfully."
  27. End If
  29. obj_connection.Close
  30. Set obj_connection = Nothing
  31. response.redirect = "helplist.asp" 
  32. 'call closeconnection()
  33. %>
Jul 3 '07 #2
3,406 Expert 2GB
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

Jul 3 '07 #3
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.
Jul 4 '07 #4
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.
Jul 4 '07 #5

Sign in to post your reply or Sign up for a free account.

Similar topics

by: Apostolis K. | last post by:
At first I make a independend virtual directory wich I named app and I check Directory Browsing in the Virtual Directory Properties. Then I create with notepad global.asa and index.asp ...
by: Oli | last post by:
Hi Hope someone can help: <% set rsProdInfo = Server.CreateObject("ADODB.Recordset") rsProdInfo.Open "TBL_Products", Conn intTotal = 0
by: shank | last post by:
I get this error and can't figure out the correct syntax. Doesn't seem to make a difference changing the quotes around. Thanks! --------------------- Syntax error (missing operator) in query...
by: Carolyn Speakman | last post by:
Hi, I'm trying to amend an intranet .asp page but keep getting this error. The error only occurs when I pull the WHOLE intranet off the server and try to run it locally. The error isn't there...
by: jai80 | last post by:
hi frenz, i have developed an asp page,fetching records from database(sql server 2000). i have placed the orderids as hyperlinks in this page, which when clicked will open another asp page. when i...
by: puafo | last post by:
The following is the code I am using for the addnew and the select clause: <%Option Explicit%> <% IF session("sessionID") = "" THEN Response.Redirect "adminLogin.asp" END IF %> <%
by: Jennifer.Berube | last post by:
So I setup my code finally got the connection string (include utility.asp file) thanks to one of ya'll on here and now I have a new problem... This is the error I'm getting: Error Type:...
by: mudasserrafiq | last post by:
I am using following asp file default.asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="0...
by: jasone | last post by:
hi everyone! any advice given will be MUCH appreciated, i have spent about 10 hours on this bit of script... a rating system. I am having realt trouble overcoming this problem at runtime ...
by: lllomh | last post by:
Define the method first this.state = { buttonBackgroundColor: 'green', isBlinking: false, // A new status is added to identify whether the button is blinking or not } autoStart=()=>{
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 4 Oct 2023 starting at 18:00 UK time (6PM UTC+1) and finishing at about 19:15 (7.15PM) The start time is equivalent to 19:00 (7PM) in Central...
by: Aliciasmith | last post by:
In an age dominated by smartphones, having a mobile app for your business is no longer an option; it's a necessity. Whether you're a startup or an established enterprise, finding the right mobile app...
by: giovanniandrean | last post by:
The energy model is structured as follows and uses excel sheets to give input data: 1-Utility.py contains all the functions needed to calculate the variables and other minor things (mentions...
by: NeoPa | last post by:
Hello everyone. I find myself stuck trying to find the VBA way to get Access to create a PDF of the currently-selected (and open) object (Form or Report). I know it can be done by selecting :...
by: NeoPa | last post by:
Introduction For this article I'll be using a very simple database which has Form (clsForm) & Report (clsReport) classes that simply handle making the calling Form invisible until the Form, or all...
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 1 Nov 2023 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM) Please note that the UK and Europe revert to winter time on...
by: NeoPa | last post by:
Introduction For this article I'll be focusing on the Report (clsReport) class. This simply handles making the calling Form invisible until all of the Reports opened by it have been closed, when it...
by: GKJR | last post by:
Does anyone have a recommendation to build a standalone application to replace an Access database? I have my bookkeeping software I developed in Access that I would like to make available to other...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.