Você esta logado no momento<%
acao = request.querystring("acao")
if acao = "" then
%>
<% else if acao = "logar" then
vlogin = replace(request.form("login"),chr(39),"''")
vsenha = replace(request.form("senha"),chr(39),"''")
Set checagem =Server.CreateObject("ADODB.RecordSet")
msql = "SELECT * FROM config WHERE usuario='"&vlogin&"' AND senha='"&vsenha&"'"
Set checagem = Conn.Execute(msql)
If Not checagem.EOF Then
session("USUARIOVALIDO")="sim"
session("user")=checagem("usuario")
%>
<% else
response.Write ""
end if
end if
end if
Conn.Close
Set Conn = Nothing
%>
|