Participating Frequently

Question

Microsoft VBScript runtime error '800a01a8'

Forum|Forum|18 years ago
December 11, 2007
8 replies
3874 views

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

Server side applications

This topic has been closed for replies.

N

Newsgroup_User

Inspiring

> form_total = form.RecordCount

should be

form_total = rsform.RecordCount

C

cjamescAuthor

Participating Frequently

thanx
i changed the recorset name and got it to work

C

cjamescAuthor

Participating Frequently

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

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

N

Newsgroup_User

Inspiring

"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.

J

JuanCVegaPR

Participant

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

C

cjamescAuthor

Participating Frequently

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

<%
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()

%>

N

Newsgroup_User

Inspiring

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?
>

N

Newsgroup_User

Inspiring

"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?

N

Newsgroup_User

Inspiring

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
>

C

cjamescAuthor

Participating Frequently

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

N

Newsgroup_User

Inspiring

"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

C

cjamescAuthor

Participating Frequently

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

Sign up

To post, reply, or follow discussions, please sign in with your Adobe ID.

Sign in to Adobe Community

To post, reply, or follow discussions, please sign in with your Adobe ID.

Scanning file for viruses.

This file cannot be downloaded