insertar registros a BD access

[heba80]

hola necesito ayuda urgente
quiero insertar registros a una base de datos en access pero sin la conexion dsn es esto posible.
en una pagina encontre esto: dicen que es la forma de conectarse a access
ACCESS

Dim con As New ADODB.Connection
Dim cadena_DSN As String

cadena_DSN = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=c:\program files\devstudio\vb\biblio.mdb;" & _
"Uid=Admin; Pwd="

con.Open cadena_DSN

en otra pagina encontre esto:
<%
Set demoConn = Server.CreateObject("ADODB.Connection")
demoFilePath = Server.MapPath("prueba.mdb")
demoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & demoFilePath & ";"
%>

con cual podre trabajar para insertar registros.

[Owen-Bonilla]

Intenta utilizando este tipo de conexión amigo:

<%language="vbscript"%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Obj_Rs = Server.Createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="& _
Server.MapPath("../Ruta/ARCHIVO_ACCESS.mdb") & _
";" & _
"Persist Security Info=False"
Conn.Open(sConnection)
Obj_RS.Open "Tu_TABLA", Conn, 3 , 3


Obj_Rs.addnew()
Obj_Rs.fields("nombre")=request.form("nombre")
Obj_Rs.fields("apellidop")=request.form("apellidop ")
Obj_Rs.fields("apellidom")=request.form("apellidom ")
Obj_Rs.update()

Aquí lo que tienes que cambiar es lo siguiente:
../Ruta/ARCHIVO_ACCESS.mdb

Suerte Amigo