Microsoft VBScript runtime error '800a01a8'

[cjamesc]

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

[Newsgroup_User]

"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

[cjamesc]

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

[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)

[cjamesc]

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

[Newsgroup_User]

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
>

[Newsgroup_User]

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

[Newsgroup_User]

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

[Newsgroup_User]

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

[JuanCVegaPR]

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

[cjamesc]

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

%>

[cjamesc]

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

[Newsgroup_User]

> form_total = form.RecordCount

should be

form_total = rsform.RecordCount

[cjamesc]

thanx
i changed the recorset name and got it to work