<% Dim login 'É OPCIONAL DECLARAR OU NAO A VARIAVEL Dim senha login = Trim(Request.Form("login")) 'REQUEST -> RESGATANDO DA PAGINA ANTERIOR OS CAMPOS NOME E CPF senha = Trim(Request.Form("senha")) ' O TRIM SERVE PRA RETIRAR OS ESPAÇOS ANTES E DEPOIS DA STRING Set Rs = objCon.Execute("SELECT * FROM ACESSO WHERE Matricula = '" & login & "' AND Senha = '" & senha & "'") ' If Rs.EOF Then 'SE O RECORDSET RETORNAR VAZIO É PORQUE LOGIN OU SENHA ESTAO INCORRETOS MENSAGEM = "Login e/ou senha incorreto(s).
" %> <% Else 'SENAO, ELE VAI ABRIR A SESSION PRA FAZER A SEGURANÇA session("login") = login Response.Redirect("entrada.asp")'REDIRECIONAR PARA ENTRADA.ASP Response.End End If %>