Access DB Problem

[internetcafeowner]

I need a little help here. I downloaded some open source software,

I'm trying to connect the DB, but I get an error on line 10

whtConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

any ideas?

Heres the code
----------------------------------------------------------------------

<%
dim whtConn, dbpath
set whtConn = server.createobject("adodb.connection")
'======================================================
'DATABASE SHOULD BE OUTSITE YOUR ROOT WEB FOR SECURITY
'SET PATH TO YOUR DATABASE HERE!
dbPath = "..\access_db\mht.mdb"
'======================================================

whtConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

FUNCTION PreSubmit2(p_sTargetString)
PreSubmit2 = REPLACE(p_sTargetString,"textarea","")
PreSubmit2 = REPLACE(PreSubmit2,"%","&#37;")
PreSubmit2 = REPLACE(PreSubmit2,"'","&#39;")
PreSubmit2 = REPLACE(PreSubmit2,"""","&quot;")
PreSubmit2 = REPLACE(PreSubmit2,"<","&lt;")
PreSubmit2 = REPLACE(PreSubmit2,">","&gt;")
PreSubmit2 = Trim(PreSubmit2)
END FUNCTION
FUNCTION PreSubmit(p_sTargetString)
PreSubmit = REPLACE(p_sTargetString,"textarea","")
PreSubmit = REPLACE(PreSubmit,"%","&#37;")
PreSubmit = REPLACE(PreSubmit,"'","&#39;")
'PreSubmit = REPLACE(PreSubmit,"""","&quot;")
PreSubmit = Trim(PreSubmit)
END FUNCTION
%>

[mattur]

Hi internetcafeowner,

I think it's the relative path you're using for dbPath not resolving to where you expect it to.

Try changing your code to:

'======================================================
'DATABASE SHOULD BE OUTSITE YOUR ROOT WEB FOR SECURITY
'SET PATH TO YOUR DATABASE HERE!
dbPath = "..\access_db\mht.mdb"
dbPath = Server.MapPath(dbPath)
'======================================================

This will change dbPath into an absolute path, mapped from your wwwroot directory (e.g. an absolute path looks like this C:\inetpub\access_db\mht.mdb).