<%
if Request("sair") = "ok" then
Session.Abandon()
End if
nome = request("nome")
senha = request("senha")
if Request("acao") = "entrar" then
Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.ActiveConnection = conexao
strsql = "select * From users where nome='"&nome&"'"
rs.open strsql
if NOT rs.EOF then
if senha = rs("senha") then
Session("nome") = nome
Session("senha") = senha
Response.Redirect "index2.asp"
else
aviso = "Senha inválida"
end if
else
aviso = "Nome inválido"
end if
end if
%>
.:: Administrativo ::.