cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Exit
search
  • Global community
    • Language:
      • Deutsch
      • English
      • Español
      • Français
      • Português
  • 日本語コミュニティ
    Dedicated community for Japanese speakers
  • 한국 커뮤니티
    Dedicated community for Korean speakers
0
Upvote

Microsoft VBScript runtime error '800a01a8'

cjamesc
New Here ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied

Object required: ''

/dropinfitness/Connections/connform.asp, line 12


this is my connection string

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_connfom_STRING
MM_connfom_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;""
%>

there isn't even a line 12
TOPICS
Server side applications

Views

3.6K
Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
replies 13 Replies 13
latest latest Jump to latest reply
Newsgroup_User
LEGEND ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied



"cjamesc" <webforumsuser@macromedia.com> wrote in message
news:fjmsn5$t2u$1@forums.macromedia.com...
> Object required: ''
>
> /dropinfitness/Connections/connform.asp, line 12
>
>
> this is my connection string
>
> <%
> ' FileName="Connection_odbc_conn_dsn.htm"
> ' Type="ADO"
> ' DesigntimeType="ADO"
> ' HTTP="false"
> ' Catalog=""
> ' Schema=""
> Dim MM_connfom_STRING
> MM_connfom_STRING = "Driver={Microsoft Access Driver
> (*.mdb)};Dbq=d:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;""
> %>
>
> there isn't even a line 12

But there seems to be an extra quote at the end of the string

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
cjamesc
New Here ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied

In Response To Newsgroup_User
that is correct
i took it out and it still gives me:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/dropinfitness/Connections/connform.asp, line 12

still no line 12

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied

In Response To Newsgroup_User
"cjamesc" <webforumsuser@macromedia.com> wrote in message
news:fjn01n$3fk$1@forums.macromedia.com...
> that is correct
> i took it out and it still gives me:
>
> Microsoft VBScript runtime error '800a01a8'
>
> Object required: ''
>
> /dropinfitness/Connections/connform.asp, line 12
>
> still no line 12

My guesses:

you are seeing cached data (empty cache)

the update didn't propagate to the server (upload the file)

the parser is thrown off by an error somewhere else and reports the wrong
line number
(show us the code for the page that's including the connection file)




Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
cjamesc
New Here ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied

that is correct
i took it out and it still gives me:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/dropinfitness/Connections/connform.asp, line 12

still no line 12

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 11, 2007 Dec 11, 2007

Copy link to clipboard

Copied

Try changing this HTTP="false" to this HTTP="true"
Dave

"cjamesc" <webforumsuser@macromedia.com> wrote in message
news:fjmsn5$t2u$1@forums.macromedia.com...
> Object required: ''
>
> /dropinfitness/Connections/connform.asp, line 12
>
>
> this is my connection string
>
> <%
> ' FileName="Connection_odbc_conn_dsn.htm"
> ' Type="ADO"
> ' DesigntimeType="ADO"
> ' HTTP="false"
> ' Catalog=""
> ' Schema=""
> Dim MM_connfom_STRING
> MM_connfom_STRING = "Driver={Microsoft Access Driver
> (*.mdb)};Dbq=d:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;""
> %>
>
> there isn't even a line 12
>


Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 12, 2007 Dec 12, 2007

Copy link to clipboard

Copied

"Baxter" <baxter(RemoveThe :-)@gtlakes.com> wrote in message
news:fjna7c$dqt$1@forums.macromedia.com...
> Try changing this HTTP="false" to this HTTP="true"
> Dave

How would design-time usage of mmhttpdb connectivity affect run-time errors?

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 12, 2007 Dec 12, 2007

Copy link to clipboard

Copied

Just checking to see if anyone was still awake? 🙂 I have always used this
string when connecting to Access database.

"Provider=MSDASQL;Driver={Microsoft Access Driver
(*.mdb)};DBQ=D:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;"

Dave

"Joris van Lier" <whizzrd@hotmail.com> wrote in message
news:fjo4gk$9u8$1@forums.macromedia.com...
> "Baxter" <baxter(RemoveThe :-)@gtlakes.com> wrote in message
> news:fjna7c$dqt$1@forums.macromedia.com...
> > Try changing this HTTP="false" to this HTTP="true"
> > Dave
>
> How would design-time usage of mmhttpdb connectivity affect run-time
errors?
>


Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 12, 2007 Dec 12, 2007

Copy link to clipboard

Copied



"Baxter" <baxter(RemoveThe :-)@gtlakes.com> wrote in message
news:fjog9q$ncg$1@forums.macromedia.com...
> Just checking to see if anyone was still awake? :-)

Very likely, because we're in time zones with a 6 hour difference :)

> I have always used this
> string when connecting to Access database.
> "Provider=MSDASQL;Driver={Microsoft Access Driver
> (*.mdb)};DBQ=D:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;"

You mean he sould connect trough ODBC?

http://msdn2.microsoft.com/en-us/library/ms810810.aspx

MSDASQL: The Microsoft OLE DB Provider for ODBC (MSDASQL) is a technology
that allows applications that are built on OLEDB and ADO (which uses OLEDB
internally) to access data sources through an ODBC driver. MSDASQL is an
OLEDB provider that connects to ODBC, instead of a database. MSDASQL ships
with the Windows operating system, and Windows Server 2008 is the first
Windows release to include a 64-bit version of the technology.


Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
JuanCVegaPR
New Here ,
Dec 13, 2007 Dec 13, 2007

Copy link to clipboard

Copied

In Response To Newsgroup_User
Hi, I don't know if you have managed to fix your problem or not, but, here is what I would type:

*********
Dim MY_CONNECTION_STRING
MY_CONNECTION_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("your_db_directoryname\access_database_name.mdb") & ";"

**********
Also, make sure that you have the right permissions set on the directory where your Access DB resides. This should usually be set to R/W. Sometimes, too much security is a problem.

Hope this helps!

Juan C. Vega
Intelligentsia

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
cjamesc
New Here ,
Dec 14, 2007 Dec 14, 2007

Copy link to clipboard

Copied

In Response To JuanCVegaPR
i tried the easy fixes posted above but they didnt work
here is the script of the page that is connecting to the script mentioned above

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connform.asp" -->
<%
Dim rsform
Dim rsform_cmd
Dim rsform_numRows

Set rsform_cmd = Server.CreateObject ("ADODB.Command")
rsform_cmd.ActiveConnection = MM_connform_STRING
rsform_cmd.CommandText = "SELECT * FROM fclub"
rsform_cmd.Prepared = true
Set rsform = rsform_cmd.Execute
rsform_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim form_total
Dim form_first
Dim form_last

' set the record count
form_total = form.RecordCount

' set the number of rows displayed on this page
If (form_numRows < 0) Then
form_numRows = form_total
Elseif (form_numRows = 0) Then
form_numRows = 1
End If

' set the first and last displayed record
form_first = 1
form_last = form_first + form_numRows - 1

' if we have the correct record count, check the other stats
If (form_total <> -1) Then
If (form_first > form_total) Then
form_first = form_total
End If
If (form_last > form_total) Then
form_last = form_total
End If
If (form_numRows > form_total) Then
form_numRows = form_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (form_total = -1) Then

' count the total records by iterating through the recordset
form_total=0
While (Not form.EOF)
form_total = form_total + 1
form.MoveNext
Wend

' reset the cursor to the beginning
If (form.CursorType > 0) Then
form.MoveFirst
Else
form.Requery
End If

' set the number of rows displayed on this page
If (form_numRows < 0 Or form_numRows > form_total) Then
form_numRows = form_total
End If

' set the first and last displayed record
form_first = 1
form_last = form_first + form_numRows - 1

If (form_first > form_total) Then
form_first = form_total
End If
If (form_last > form_total) Then
form_last = form_total
End If

End If
%>
<%
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\hosting\ohadevery\dropinfitness\form.mdb;Uid=;Pwd=;"
Command1.CommandText = "select * from form"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
cjamesc
New Here ,
Dec 14, 2007 Dec 14, 2007

Copy link to clipboard

Copied

i changed the connection string and this is the new error i recieve

Microsoft VBScript runtime error '800a01a8'

Object required: 'form'

/dropinfitness/clublocator.asp, line 24

this is my line 24

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connform.asp" -->
<%
Dim rsform
Dim rsform_cmd
Dim rsform_numRows

Set rsform_cmd = Server.CreateObject ("ADODB.Command")
rsform_cmd.ActiveConnection = MM_connform_STRING
rsform_cmd.CommandText = "SELECT * FROM fclub"
rsform_cmd.Prepared = true

Set rsform = rsform_cmd.Execute
rsform_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim form_total
Dim form_first
Dim form_last

' set the record count
form_total = form.RecordCount

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Newsgroup_User
LEGEND ,
Dec 14, 2007 Dec 14, 2007

Copy link to clipboard

Copied


> form_total = form.RecordCount

should be

form_total = rsform.RecordCount

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
cjamesc
New Here ,
Dec 14, 2007 Dec 14, 2007

Copy link to clipboard

Copied

LATEST
In Response To Newsgroup_User
thanx
i changed the recorset name and got it to work

Votes

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Copyright © 2025 Adobe. All rights reserved.
Using the Community Experience League Terms of Use Privacy Cookie preferences Do not sell or share my personal information ad choicesAdChoices