<!--#include file="../conexao.asp" -->

<%
strLogin = request("Login")
strSenha = request("Senha")


strLogin = Replace(strLogin,chr(39),"''") 
strSenha = Replace(strSenha,chr(39),"''") 
strSQL = "SELECT * FROM administradores"
strSQL = strSQL & " WHERE Login='"&strLogin&"' and Senha='"&strSenha&"'"
Set objRS = objConexao.execute(strSQL)
If objRS.EOF AND objRS.BOF then
Session("admlogado") = "NAO"
Response.Redirect "index.asp?msg=VERIFIQUE%20SEU%20NOME%20DE%20USUÁRIO%20E%20SENHA%20TENTE%20NOVAMENTE"


Else
		
Session("admlogado") = "SIM"
Session("Nome") = objRS("Nome")
Response.Redirect "inicial.asp?msg=Seja bem-vindo " & objRS("Nome") & "!"

End IF  
objRS.close
set objRS= nothing
objConexao.close
set objConexao= nothing


%>