Password en asp

Netfiles · #1 (**permalink**) 16/02/2003, 15:00

nesecito un poco de ayuda relacionada con password en asp. tengouna base de datos con los campos usuario y clave. necesito que ingrese a una pagina si esta registrado y si no que se registre mi problema es que me da un error de que los campos estan vacios o no encuentra lois datos. si puedes ayudarme te lo agradeceria.
Netfiles

Gurrutello · #2 (**permalink**) 16/02/2003, 17:47

hola
Bienvenido al foro
Por que no pones el codigo que tienes a ver cual es el problema??
saludos

Netfiles · #3 (**permalink**) 17/02/2003, 16:07

estimado amigo, Gracias por responderme, ya solucione el problema, pero me gustaria que me ayudaran con la validacion de ingresar nombres y validar email, como tambien como Hacer para que me envien las resúestas de un formulario o una encuesta.
Carlos Castillo
Netfiles

bakanzipp · #4 (**permalink**) 17/02/2003, 16:33

validacion email

como pretendes validar un nombre?

deprabado · #5 (**permalink**) 17/02/2003, 18:22

Cita:

como pretendes validar un nombre?

Que no se lo metan vacio...

Netfiles · #6 (**permalink**) 18/02/2003, 16:55

Les estoy enviando el codigo fuente. espero que les funcione.

<%
dim Ruta
dim rs
dim Sqltxt
Dim conn
If request.form("Usuario")="" Then%>
<body bgcolor="#FF6633"><Form method="post" action="login.asp">
<P aling="center" align="center">
<%Request.querystring("msg")%><div aling="Center">
<Center><table border= 1>
<p align="center"> </p>
<tr>
<td>
<div align="center"><font size="4">Usuario:
<input type="text" name="Usuario">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font size="4">Clave:</font>
<input type="Password" name="Clave">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="Submit" Value="Aceptar" name="B1">
</div>
</tr>
<div align="center"></td></div>
<div align="center"><table></div>
<div align="center"></center></div>
<div align="center"></div></div>
<div align="center"></form></div>
<div align="center">
</center>
<%Else
Usuario=replace(request.form("Usuario"),"","")
Clave=replace(request.form("Clave"),"","")
Ruta=Server.MapPath("Usuarios.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Ruta
Set rs=conn.execute("Select * From Datos where Usuario='"&Usuario&"' and Clave='"&Clave&"'")
'response.write Sqltxt
'rs.open.execute Sqlxt,conn
If not Rs.eof Then
'Nos a de vuelto un registro
If Rs("Usuario")=Usuario and Rs("Clave")=Clave Then
Session("nivel")=1
Response.redirect"principal.htm"
end if
Else
session("nivel")=-1
End if
'Resultado.close
Set Resultado=Nothing
Set conn=Nothing
If session("nivel")=-1 or session("nivel")="" Then
'response.redirect"login.asp?msg=Usuario%20%20Clav e%20incorrecta"
Response.redirect"error.htm"
end if
end if%>
</div>