<%
response.buffer = true
'decleration
dim useraction
dim conn,dsn,rs,sql
'if the user submit the form
useraction = request("action")
select case useraction
case "login"
user = request.form("user")
pass = request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM miembros where password='"& pass &"' and username='"& user & "'"
rs.open sql,conn
if rs.eof and rs.bof then
response.write "
"
response.write "
"
response.write "ERROR de Password! Si es un usuario registrado, puede recuperar su contraseña."
response.write "
"
else
intMiembro= Rs("idmiembro").Value
session("auth")= pass
response.redirect "loginusuarios.asp?intMiembro="&intMiembro
end if
end select
%>
ArtistaNet.com - Members Site
