<%
wLOGIN=request.item("L")
wSENHA=request.item("S")
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
SQL="SELECT USUARIO, NOME FROM USUARIOS WHERE USUARIO = '" & wLOGIN & "' AND SENHA = '" & wSENHA & "'"
Set TabUsuario = Database.Execute(SQL)
if not TabUsuario.EOF then
session("ID_Usuario")=TabUsuario("USUARIO")
session("Nome_Parceiro")=TabUsuario("Nome")
response.redirect("Index.asp")
end if
TabUsuario.close
set TabUsuario=nothing
%>
%>
<%=wSENHA%> Login ou
Senha inválido...