Access - insertar registro

Hola a Todos:

Tengo el siguiente problema, cuando quiero insertar un registro en una
base
de datos Access con el siguiente codigo, me da un mensaje:

Esta pagina tiene acceso a un origen de datos en otro dominio

Y finalmente no inserta y tampoco me da un error

que puede ser, gracias

Alberto López
Chile
Sub Insertar()
Dim BDatos , strSQL,Form

Set bdatos=server.createobject("ADODB.connection")
set Form=document.forms("form1")

bdatos.connectionstring = strconecta
bdatos.mode=3 'Lectura=1,Escritura=2, Lectura/Escritura=3
bdatos.open

if bdatos.errors.count > 0 then
msgbox "Error en la conexion"
exit sub
else
strSQL="insert into Tabla(rut,nombre,direccion,profesion) values ('" &
form.text1.value & "','" & form.text2.value & "','" & form.text3.value &
"','" & form.profesion.value & "')"
bdatos.begintrans
bdatos.execute strsql
if bdatos.errors.count > 0 then
msgbox "Error en la insercion"
bdatos.rollback
else
bdatos.committrans
msgbox "Grabacion Exitosa"
end if
end if
end Sub

Segun parece, deberias indicar el camino correcto de tu base mdb, para eso
usa el "servermappath" para saber el camino fisico. Si en tu caso todo eso
esta ok, pues solo te falto un ";" al final del nombre, por lo cual parece
que el ADO iterpreta que estas usando una coneccion DSN

Const strConecta1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MIBASE.mdb;"

Saludos, Gabriel.