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