VB 80004005

Report · Oct 28, 2006

I wrote the following code on my own system (switching away from JavaScript....
-------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim csVehileVB__MMColParam
csVehileVB__MMColParam = "N"
If (Request("MM_EmptyValue") <> "") Then
csVehileVB__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim csVehileVB
Dim csVehileVB_numRows

Set csVehileVB = Server.CreateObject("ADODB.Recordset")
csVehileVB.ActiveConnection = MM_Try1_STRING
--------------------------------------------------------------------
I get the following error on my own system before I ship this code to the web host.
------------------------------------------------------------------------------
Microsoft JET Database Engine (0x80004005)
Could not find file 'c:\inetpub\wwwroot\myCars\wwwRoot\Private\mydatabase.mdb'.
/myCars/wwwRoot/inventoryVB.asp, line 18
----------------------------------------------------
this path does exist on my system and my permissions are set to Modify for all user accounts. hmmmm
the connections file looks like this:

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_Try1_STRING
MM_Try1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\myCars\wwwRoot\Private\mydatabase.mdb;") & ";Jet OLEDB:System Database=system.mdw;"
%>

take care

Report · Oct 28, 2006

I got it to work... Now I feel a bit dumb. Funny how easy things are once you find the answer. I just made a small typo in my database name.