2 Mdb

[FedEx]

Si lo pongo de la manera que vos me decis, no me da error, pero solo me gurda los datos en una sola base
<%
dim con,rs,sql
if request.form <> "" then

set con = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")

sql = "INSERT INTO usuarios(Apellido, Nombre) VALUES('" & request.form("Apellido") & "','" & request.form("Nombre") & "')"


con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\fede\CsC\Reclamos\basededatos.mdb"
con.open
rs.open sql,con


set rs = nothing
set conn = nothing

response.write("los datos se han ingresado correctamente")
else
%>

y despues en el body antes del <Form>
<%
set con = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")

sql = "SELECT ID FROM usuarios"


con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\fede\CsC\Reclamos\basededatos.mdb"
con.open
rs.open sql,con
%>