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