|
<%
if Session("NombreLargo") = "" then
Usuario = Request.Form("txtUsuario")
Password = Request.Form("txtPassword")
end if
'response.Write("'"&Session("NombreLargo")&"'")
'response.Write(Usuario&" "&Password)
'Session("NombreLargo")=""
if usuario <> "" then
' Set cn=Server.CreateObject("ADODB.Connection")
' cn.Open "DSN=DatosWebtopia"
sql="SELECT * FROM Usuarios WHERE email='" & Usuario & "' AND baja=FALSE"
Set rs=cn.Execute(sql)
if rs.eof then
rs.close
cn.close %>
<%
else
Contrasena=rs("contrasena")
Session("CorreoValido")=rs("email")
Session("Apodo")=rs("alias")
Session("EdoValido")=rs("estado")
Session("NombreLargo")=rs("nombre")
intVisitas=rs("visitas")+1
sql="UPDATE Usuarios SET visitas="&intVisitas&" WHERE email='"&Session("CorreoValido")&"'"
Set rs=cn.Execute(sql)
cn.close
if Password <> Contrasena then
Session("NombreLargo")="" %>
<%
else
response.Redirect("clasificados.asp")
end if
end if
end if
%>
<%
if Session("NombreLargo")<>"" then
' Set cn=Server.CreateObject("ADODB.Connection")
' cn.Open "DSN=DatosWebtopia"
sql="UPDATE Usuarios SET ultimavez='" & now() & "' WHERE email='"&Session("CorreoValido")&"'"
Set rs=cn.Execute(sql)
cn.close
response.Write("Bienvenido(a)"&Session("NombreLargo")&"")
response.Write(" Como usuario de Chapultepec.com.mx, tienes derecho a utilizar los servicios ")
response.Write("de publicación de anuncios clasificados ")
response.Write("Ayúdanos a mantener tu cuenta actualizando tus datos:")
response.Write("")
else%>
¿Olvidaste tu contraseña? Nosotros te la proporcionamos de nuevo. Solo haz clic aquí y te la enviaremos por correo.
¿Aún no eres usuario nuestro? Regístrate con nosotros |
<% end if%>
