Buenas Que tal! soy nuevo en este foro y estoy aprendiendo a programar en asp.
Tengo un problema con el proyecto de en el cual estoy por trabajar con un registro de usuarios en una BD la página donde se encuentra el form de llama registro.asp la cual la enlace con otr que es alta.asp en la cual comprueba en la base de datos el usuario y si no está registrado lo registra. cada vez que quiero registrar un usuario me devuelve que los datos son incorrectos.
Este es el código de registro.asp:
<FORM NAME="Login" METHOD="POST" ACTION="alta.asp">
Nombre: <INPUT TYPE="text"><br>
Apellidos: <INPUT TYPE="text"><br>
Teléfono: <INPUT TYPE="text"><br>
E-Mail: <INPUT TYPE="text" NAME=""><br>
<b>Nombre de usuario:</b> <INPUT TYPE="text" NAME=""><br>
<b>Contraseña:</b> <INPUT TYPE="password"><br>
<INPUT TYPE="submit" VALUE="Darme de alta">
</FORM>
Y Este el de alta.asp:
<%
Dim nombre, apellidos, telefono, email, login, password
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if password="" then correcto=False end if
if correcto then
'Solo si todo está bien, comprobamos con la bd
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\127.0.0.1\usuarios.mdb") 'esta es mi url local
SQL="SELECT * FROM Usuarios WHERE (Login='"&login&"');"
'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 nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO Usuarios " & _
"(Login, Password, Nombre, Apellidos, Tlf, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password & _
"', '"&nombre&"','"&apellidos&"','"&telefono&"','"&ema il&"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if
'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else
'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos!")
end if
%>
he Probado tambien directamente logearme ya con un usuario registrado directamente en mi BD pero me tira este error y ya me volvi loco comprobando las direcciones!
ADODB.Connection error '800a0e7a'
ADO no encontró el proveedor especificado.
/login.asp, line 20
Porfavor Ayuda!!!
y Muchas gracias al que me ayude!
..........
