<% strLogin = request("login") strSenha = request("senha") sql = "SELECT * FROM autores WHERE login = '" & strLogin & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, MeuDB, 3, 3 if rs.eof AND rs.bof then numAutoriza = 0 else if rs("senha") <> strSenha then numAutoriza = 0 else numAutoriza = 1 Session("VerificaLogin") = 1 Session("Usuario") = strLogin Session("idUsu") = rs("id") end if end if %>
<% if numAutoriza = 0 then %>
Acesso não-autorizado!
<< voltar
<% else response.redirect "principal.asp" end if %>