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
Leer las respuestas