problema con recordset

[sqa212]

Antes tenia un archivo db con el que realizaba la conexion con la base de datos de esta forma:
<%
dim db
dim strConn
strConn = "jesusconexion"
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn %>


Ahora la tengo en Brinkster y realizo la conexión de esta forma:
<%
dim db
Set db = Server.CreateObject("ADODB.Connection")
db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mynombredeusuaio \db\basedatos.mdb")

%>
Cuando alguna pagina tiene que conectar con la base de datos pongo al principio:
<!-- #include file="db.asp" -->

El problema que tengo es que en una pagina (registro.asp) que uso para agregar un Nuevo usuario a la base de datos tengo:
<!-- #include file="db.asp" -->
……………codigo……
Set rscust = Server.CreateObject("ADODB.RecordSet")
rscust.Open "clientes", strConn , adOpenKeySet, adLockPessimistic, adCmdTable
rscust.AddNew
rscust("nombre") = cnombre
rscust("email") = cemail
rscust("pass") = cpass1
rscust.update
Session("idcliente") = rscust("idcliente")
rscust.Close
end if
Set rscust = Nothing
response.redirect("foro.asp")

Antes de alojarla en brinkster, en Internet Information services me funcionaba, tras tener que cambiar el archivo db.asp para alojarla en brinkster ha dejado de funcionar.
¿Cómo deberia de cambiar la pagina registro.asp para que volviese a funcionar?

Gracias por adelantado, si soluciono esto ya prácticamente conseguiria terminar la pagina que estoy haciendo.