insertar datos en un registroooooooooo

[Potro]

A ver intentalo asi.


<%

nnombre = Trim(Request("nombrepersona"))
ndireccion = Trim(Request("direccion"))

Dim SQL2,oConn
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./basedatos.mdb"))
SQL2="INSERT INTO tablapersonas (nombre,direccion) values ('" &nnombre& "','" &ndireccion &"')"

oConn.Execute(Sql2)
oConn.Close
Set oConn=Nothing
Response.Redirect("anadirpersona.asp")
%>