
15/04/2002, 08:43
|
| | Fecha de Ingreso: enero-2002
Mensajes: 349
Antigüedad: 23 años, 3 meses Puntos: 1 | |
Re: Insert Into Tienen toda la razon, pido disculpas, ahi va el codigo:
<%Dim nombre, apellidos, email, fnac, usuario, password, pregunta, respuesta
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
email=Request.Form("email")
fnac=Request.Form("fnac")
usuario=Request.Form("usuario")
password=Request.Form("password")
pregunta=Request.Form("pregunta")
respuesta=Request.Form("respuesta")
correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if email="" then correcto=False end if
if fnac="" then correcto=False end if
if usuario="" then correcto=False end if
if password="" then correcto=False end if
if pregunta="" then correcto=False end if
if respuesta="" then correcto=False end if
if correcto then
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("clientes.mdb"))
SQL="SELECT * FROM usuarios WHERE (password='"&password&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)
'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El password que usted selecciono ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, insertamos en la bd
SQL = "insert into usuarios (nombre, apellidos, email, fnac, usuario, password, pregunta, respuesta)values ('" & Request.Form("nombre") & "','" & Request.Form("apellidos") & "','" & Request.Form("email") & "','" & Request.Form("fnac") & "','" & Request.Form("usuario") & "','" & Request.Form("password") & "','" & Request.Form("pregunta") & "','" & Request.Form("respuesta") & "')"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if
'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else
Response.Write("Datos incorrectos!")
end if
%> |