si se a que te refieres!
lo que pasa que ese codigo no estaba completo, me equivoque.
este es el código en el cual modifique un par de variables:
<%
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("Password")
correcto=True
'Comprobamos que no hay campos vacos
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 vaco 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
%>
y ahora surgió otro problema, y es que antes el error que me tiraba era que los datos eran incorrectos, peron ahora no encuentra la pág. y yo no la moví en ningun momento.
saludos y muchas gracias!!
ha! y tambien modifiqué el form de 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>