Agregar datos a BD y más!

[DaniMino]

Gracias por responder Myakire, pero no sé porque tampoco me funciona... me sale lo siguiente:
"Se excedió el tiempo máximo de espera para una secuencia de comandos. "

Yo he quitado lo que había después de "do until rs.eof%>" hasta el loop... es decir:

++++++++++++++++++++
<% dim con,rs,sql,inom,iapell,icorreo

inom = Trim(request.form("txtnom"))
iapell = Trim(request.form("txtapell"))
icorreo = Trim(request.form("txtcorreo"))
inacimiento = Trim(request.form("txtnacimiento"))

if Len("txtnom") = "" then
rsponse.write("<center><b>Debes rellenar todos los campos</b></center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("../db/users.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From Tabla1 Order By Nombre"
rs.open sql,con,1,2
rs.addnew
rs.fields("Nombre") = inom
rs.fields("Apellidos") = iapell
rs.fields("Correo") = icorreo
rs.fields("Nacimiento") = inacimiento
rs.update
rs.movefirst
do until rs.eof%>
Gracias!
<%
loop
rs.close
con.close
end if

%>
++++++++++++++++++++

Muchas gracias!

DaNi