
04/11/2005, 07:48
|
| | Fecha de Ingreso: abril-2005
Mensajes: 112
Antigüedad: 20 años Puntos: 0 | |
virla: probe con el tema mayuculas y nada es mas ahora me tira error interno de servidor, le doy actualizar y me sale el bendito "datos incorrectos"
Kaduco eliminados los espacios y probe con los if, desde el primero me salta el error. y sacando todos los if dejando solo
correcto =true
if correcto Then
directamente me tira error de servidor
ta muestro el codigo original haber si le ves el error
<%
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 ...
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
%>
estara aqui el problema de mi codigo???:
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&"');" |