04/11/2005, 08:30
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 112
Antigüedad: 20 años Puntos: 0 | |
| ahora lo tengo asi y me marca directamente error interno
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim nombre, apellido, telefono, mail, login, password
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
login=Request.Form("login")
password=Request.Form("password")
telefono=Request.Form("telefono")
email=Request.Form("email")
correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if login="" then correcto=False end if
if password="" then correcto=False end if
if telefono="" then correcto=False end if
if email="" 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, Apellidos, Telefono, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password & _
"', '"&nombre&"','"&apellidos&"','"&telefono&"','"&ema il&"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if
else
'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
%>
</body>
</html>
me rindooooo !!!!!!!! |