HOla a todos y en especial a quien me ayude:
esto tratando de armar un sistema de login y usuario esta todo perfecto pero tengo un error constante cuando llego a la pagina.asp estoy casdi seguro que hay un error en el codigo que no deja escribir en la base da datos, he buscado todas las alternativas y nada les muestro el codigo y les digo de antemano el error: siempre me lleva al ultimo response "Datos incorrectos!" y no escribe en la base.
si alguien sabe donde esta el error se los agradezco eternamente.
PD revise mil veces la base y el formulario y esta perofecto. cuando elimino ese response deja todo en blanco y tampoco escribe.
<%
Dim nombre, apellido, telefono, email, login, password
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellido=Request.Form("apellido")
Login =Request.Form("Login")
Password=Request.Form("Password")
Tlf=Request.Form("Tlf")
Mail =Request.Form("E-mail")
if nombre="" then correcto=False end if
if apellido="" then correcto=False end if
if login="" then correcto=False end if
if password="" then correcto=False end if
if tlf="" then correcto=False end if
if mail="" 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 "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("Usuarios.mdb")
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, Apellido, Tlf, E-mail)"
SQL=SQL & " VALUES ('"&login&"', '"&password&"', '"&nombre&"','"&apellido&"','"&telefono&"','"&mail &"');"
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
%>