DB koppling

Kan någon hjälpa mig att göra om denna koppling till en mappath så att jag inte behöver skriva in hela sökvägen på datorn... bara ../data/db.mdb

Det ska inte heller vara någon textfil med. Bara en vanlig koppling...

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("DBPath/"))
Set Read = FSO.OpenTextFile(Server.MapPath("DBPath/DB_Path.txt"), 1, False, False)
DBPath = Read.ReadLine

Set Read = Nothing
Set Folder = Nothing
Set FSO = Nothing

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Set RS = Conn.OpenSchema(28)

------------------
Talet är tankens död

  Set objConn=server.CreateObject("adodb.connection")
  DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN=dsn & "DBQ=" & server.mappath("..\din\sökväg\databas.mdb")
  objConn.Open DSN

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
http://jare.mine.nu/

Denna funkar inte... det står:
"Objektet eller providern kan inte utföra den begärda åtgärden."

------------------
Talet är tankens död

Snälla:Kan inte någon hjälpa mig göra om denna så att den funkar utan den absoluta sökvägen?

DBpath = "C:/Inetpub/wwwroot/applications/basket/data/db.mdb"

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Set RS = Conn.OpenSchema(28)

------------------
Talet är tankens död