Trabajo sobre Base de datos

[GUAPOBEN]

Espero te Sirva:

<%

Dim oConn,strSQL,rs,ultimo

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MiBase.mdb"))

strSQL = "insert into clientes (Nombre, Puesto, Telefono) values ('" & Request.Form("Nombre") & "','" & Request.Form("Puesto") & "','" & Request.Form("Telefono") & "')"
oConn.Execute(strSQL)

strSQL = "SELECT MAX(ID) FROM clientes"

Set rs = oConn.Execute(strSQL)
ultimo= rs.Fields(0)

rs.close
oConn.Close
set oConn = nothing

Response.Redirect("see.asp?ID="& ultimo &"")

%>

Te comento rapidamente lo que hace, cacha los datos de los campos te fu formulario previamente llenado en los Request.Form y los inserta a la base MiBase en la tabla clientes.

La Parte de -strSQL = "SELECT MAX(ID) FROM clientes"- lo que hace es una consulta para arrojarte el ID del ultimo registro insertado.

El -Response.Redirect("see.asp?ID="& ultimo &"")- te direcciona a una pagina la cual debera de cachar el ID del ultimo registro para mostrar los datos insertados.

Ahora bien el Response.Redirect tambien puede ser solo una pagina de Bienvenida o de gracias, de igual forma puedes elimiar que te arroje el ultimo registo insertado.

Por otro lado existe otras maneras de hacerlo, yo realizo de esta forma los inserts y tal vez no sea la mas adecuada pero para poder salir del paso creo que te funcionara.

Saludos cordiales.