Muchas gracias!
Por fin logré conectar con mi BD, solo que ahora cambié un poco el proyecto
, puesto que iva a hacer una página de descargas pagas, ahora quiero hacer una gratuita pero con un registro de usuarios, y apliqué lo que me dijiste y el login funcionó correctamente, pero ahora el formulario de registro no funciona!
y necesito ayuda!
esta es la pagina registro (el form) registro.asp:
<html>
<head>
<title>Registro</title>
</head>
<body background="fondos/back1.gif"
bgcolor="#000000" bgproperties=fixed>
<FORM NAME="Login" METHOD="POST" ACTION="alta.asp">
<p align="center"><font face="Arial Black"><b><u><i>Registrate Es Gratis!</i></u></b></font>
<p align="center"><font color="#FF9900">
<b>Usuario:</b> <INPUT TYPE="text" NAME="login"><br>
<b>Contraseña:</b> <INPUT TYPE="password" NAME="Password"><br>
<b>E-Mail: </b> <INPUT TYPE="text" NAME="email"><br>
<b>Universidad: </b><INPUT TYPE="text" NAME="universidad"><br>
<b>
Año: </b>
<INPUT TYPE="text" NAME="ano"><br>
<b>
Carrera: </b></font> <INPUT TYPE="text" name="carrera"><br>
&n bsp; &nbs p;
<INPUT TYPE="submit" VALUE="Darme de alta">
</FORM>
</body>
</html>
y esta es la que confirma los datos ingresados a la BD alta.asp:
<%
Dim universidad, ano, carrera, email, login, password,
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
universidad=Request.Form("Universidad")
ano=Request.Form("Año")
carrera=Request.Form("Carrera")
email=Request.Form("E-Mail")
login=Request.Form("Usuario")
password=Request.Form("Contraseña")
correcto=True
'Comprobamos que no hay campos vacíos
if universidad="" then correcto=False end if
if ano="" then correcto=False end if
if carrera="" then correcto=False end if
if email="" then correcto=False end if
if login="" 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("/apuntesnea/BD/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, Universidad, Ano, Carrera, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password & _
"', '"&universidad&"','"&ano&"','"&carrera&"','"&email &"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& login)
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
%>
P/D:esta es la dirección de mi host:
http://web.1asphost.com/apuntesnea/login.asp http://web.1asphost.com/apuntesnea/registro.asp
(aún no tiene index)
Desde ya muchas gracias por la ayuda!!
