quitar MapPath y usar dns

[Saintel]

Hola:

Yo utilizo el MapPath para indicarle a mi string de conexion la ruta de mi base de datos que se encuentra en la carpeta "db" en la raiz la base de datos de access se llama casa.mdb y la ruta de esta es:

'C:\Domains\midomino.net.ve\db\casa.mdb'

Mi proveedor de hosting me indica que cambie el MapPath por dns por razones de seguridad del servidor, pero realmente no se como hacerlo.

Aqui le dejo mi string de conexion, para ver si me pueden ayudar


const g_BaseDatosUID = "sa"
const g_BaseDatosPWD = ""
const g_BaseDatos = "casa"
const g_ServidorBaseDatos = ""
const g_TipoBaseData = "Access"
const g_LibreriaEstilo = ""



Dim ConexionBD, RsDatos
Dim Proveedor, Ruta, Driver

Sub AbreBaseDatosAccess(BaseDatos)
Set ConexionBD = Server.CreateObject("ADODB.Connection")
Ruta = server.mapPath("/db/"& BaseDatos &".mdb")
Proveedor = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";"
ConexionBD.Open Proveedor
Set RsDatos = Server.CreateObject("ADODB.RecordSet")
End Sub

Sub CierraBaseDatosAccess()
ConexionBD.Close
Set ConexionBD=Nothing
End Sub.

Gracias

Saintel