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