No me funciona, porfavor ayuda

Gorka
26 de Julio del 2003
Hola Amigos:

Estoy intentando insertar unos datos recogidos de un formulario (reg.asp) en una base de datos, enviados a (reg2.asp). Pero despues de pulsar el boton enviar, me dice que no se puede mostrar la pgina (reg2.asp)

Aqui esta todo el codigo de reg2.asp:
--------------------------------------------

<!--#include file="bd.asp"-->
<%
'definimos variables
dim validc, valide, validt, NoValido, nickvalido, ValidoTodo

'validamos el Email
Dim e,arroba,punto
correo=ucase(Request.Form("Mail"))
for a=1 to len(correo)
n=asc(mid(correo,a,1))
if not n=46 and n<64 then e=true
if not n=95 and n>90 then e=true
if n=64 then arroba=true
if n=46 then punto=true
next
if e=false and arroba=true and punto=true then
valide = true
else
NoValido = NoValido & "<br>The e-mail you enter is not valid"
end if

'comprobar si llegaron correctamente los datos
if request.form("Username") <> "" and request.form("Password") <> "" and request.form("ConfPassword") <> "" and request.form("FirstName") <> "" and request.form("LastName") <> "" and request.form("Mail") <> "" then
validt = true
else
NoValido = NoValido & "<br>You not completed all the fields"
end if

'Nos fijamos si los dos campos de la contrasea son vlidos
if request.form("Password") = request.form("ConfPassword") then
validc = true
else
NoValido = NoValido & "<br>The password between Password and Confirm Password, is different"
end if

'nos fijamos si el nick est disponible, osea, no est ocupado por otro
SQL = "Select Username from users where Username = '" & request.form("Username") & "'"
rs.open SQL
if rs.eof then
nickvalido = true
else
NoValido = NoValido & "<br>El nombre de usuario que intentas usar ya est ocupado por otro usuario"
end if
rs.close

'y si todo es valido
if validc=true and valide=true and validt=true and nickvalido=true then ValidoTodo = True

' si todo est bien procedemos a registrar
if ValidoTodo=true then
sqltxt="Select * from users" 'cargamos la tabla usuarios
rs.open SQLtxt, cnn, 2, 2 ' abrimos el recordser con 2,2 para poder modificarlo
rs.addnew ' agregamos un nuevo registro
'insertamos campo por campo
rs.fields("FirstName") = request.form("FirstName")
rs.fields("LastName") = request.form("LastName")
rs.fields("Mail") = request.form("Mail")
rs.fields("Username") = request.form("Username")
rs.fields("Password") = request.form("Password")
rs.update ' actualizamos la bd
rs.close ' cerramos el recordset
end if
%>
<html>
<head>
<title>Registro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><b><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><i><font size="6">Registro
</font></i></font></b></div>
<hr>
<div align="center">
<%if ValidoTodo = True then%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000">&iexcl;Congratulations!</font><br>
Your register is finished<br>
Your Username is: <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=request.form("Username")%></font><br>
</b></font>
<%end if%>
<br>
<%if ValidoTodo = False then%>
<b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">We can't finish your register, maybe it will be beacuse: <%=NoValido%></font></b>
<%end if%>
<br>
<br>
<a href="default.asp">Home Page</a></div>
</body>
</html>

--------------------------------------------------------

Al principio hay un include (bd.asp) con el siguiente cdigo:

-----------------------------------------------

<%
'Conexin a la base de datos
Dim cnn
dim rs
'dim SQL
DBName = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/users.mdb")"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn%>

--------------------------------------------------------------

Por favor, si alguien me puede decir que es lo que esta fallando...

Muchas gracias de antemano

Salu2,
Gorka

Santos Pairazam?
26 de Julio del 2003
Al parecer tu Problema esta en la Primera Pgina :
Alli tienes que tener un Boton del tipo SUBMIT y en el action de Formulario debe estar el nombre de tu pagina a llamar en este caso Reg2.asp
De tal manera que cuando se presione en dicho boton submitee el formulario y pase los datos a la pgina reg2.asp

Chequea eso.
Hasta Pronto

gorka
26 de Julio del 2003
he comprobado lo que me has dicho, y esta correcto, mira, este es el cdigo de la principal:

-----------------

<html>
<head>
<title>Registro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><b><i>
<font face="Verdana, Arial, Helvetica, sans-serif" size="6">REGISTER</font></i><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><i><font size="6">
</font></i></font></b></div><hr>
<div align="center">
<form name="form1" method="post" action="reg2.asp">

<table width="51%" border="0" cellpadding=" ">
<tr>
<td width="50%"><b>First Name</b></td>
<td width="50%">
<input type="text" name="FirstName" size="20">
</td>
</tr>
<tr>
<td width="50%"><b>Last Name</b></td>
<td width="50%">
<input type="text" name="LastName" size="20">
</td>
</tr>
<tr>
<td width="50%"><b>Username</b></td>
<td width="50%">
<input type="text" name="Username" size="20">
</td>
</tr>
<tr>
<td width="50%"><b>Password</b></td>
<td width="50%">
<input type="password" name="Password" size="20">
</td>
</tr>
<tr>
<td width="50%"><b>Confirm Password</b></td>
<td width="50%">
<input type="password" name="ConfPassword" size="20">
</td>
</tr>
<tr>
<td width="50%"><b>E-mail</b></td>
<td width="50%">
<input name="Mail" size="20">
</td>
</tr>
</table>
<br>
<input type="submit" name="Submit" value="Registrarme!">
</form>
<hr>
<br>
</div>
</body>
</html>

----------------------

gracias, gorka