Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/09/2002, 10:44
GTA2
 
Fecha de Ingreso: julio-2002
Mensajes: 106
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: registro de usuarios nuevos

asi mira, esta es la forma en que yo lo hago, solo debes ajustarlo a tu tabla usuarios.

'se verifica que el nombre de empresa no sea repetido

set conn=conecta()
set rs = CreateObject("ADODB.Recordset")
sql="Select usu_nombre from usuarios"
rs.Open sql, conn

if (rs.eof) then
nombre="nuevo"
else
while not (rs.eof)

if lcase(trim(rs("usu_nombre")))=lcase(trim (request("usu_nombre"))) then

nombre="repetido"

End if

rs.movenext

Wend
end if

rs.close
set rs=nothing
desconecta(conn)

if nombre="repetido" then

%>
<script language="VBScript">
<!--
r=msgbox("Ya existe un usuario de nombre <%=request("usu_nombre")%>, elija otro nombre de usuario para el nuevo usuario ",VbInformation,"ERROR")
location.href="ing_nuevo_usuario.asp"
-->
</script>
<% response.end

end if

Se supone que esta es la segunda pagian, osea donde se reciben los datos del formulario, por eso comparo lo del request con lo que sacod e la base de datos pa cachar si el nombre se repite. si lo queris mas refinado, usa el like de sql.

chaum.

;) ;) ;)

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

<body bgcolor="#FFFFFF" text="#000000">
<img src="http://pukem.face.ubiobio.cl/sapi/gta2.jpg">

"And Remember...Respect is everything.