04/02/2002, 11:54
|
| | | Fecha de Ingreso: febrero-2002
Mensajes: 2
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Comprobar si el usuario existe
Hola, estoy haciendo una web en la que los visitantes se podrán registrar y claro, para que no haya dos usuarios con el mismo nick antes de efectuar el registro, compruebo que el nick no exista en la base de datos.Para ello estoy usando el siguiente código:
<%
dim conexion,tabla,sql,nick,pass,mail
nick = request.form("nick")
pass = request.form("pass")
mail = request.form("mail")
sql= "Select * from usuarios Order By nick desc;"
Set conexion=Server.CreateObject("adodb.connectio n")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("db/advance.mdb")
Set tabla=Server.CreateObject("adodb.recordset&qu ot;)
tabla.Open sql,Conexion
do while not tabla.eof
if nick = tabla("nick") then
response.write "<html>"
response.write "<head>"
response.write "<title>Direccionando...</title>"
response.write "<META HTTP-EQUIV=Refresh CONTENT=0;URL=fallo-reg.asp?nick=" & nick & "&mail=" & mail & ">"
response.write "</head>"
response.write "<body>"
response.write "<center><h3>Direcionando......&l t;/h3>"
response.write "</body>"
response.write "</html>"
else
tabla.movenext
end if
loop
tabla.close
conexion.close
%>
El caso es que parece caer en un bucle infinito o algo a si por que el ordenador se relantiza hasta que llega un punto en que el explorer me dá fallo.
Lo he revisado muchas veces, pero no veo el fallo
¿Alguno puede ayudarme?
Muchas gracias por adelantado
========================
Visita mi página personal en:
http://www.jmgh.cjb.net
======================== |