<%response.buffer=true%> <% 'conexão com o banco Dim conn set conn = Server.CreateObject("ADODB.Connection") conn.open DSNString 'declarando variáveis de uso do método Dim rs, msgErro, numErro msgErro = "" numErro = 0 'verifica acao de logar if request("acao") = "logar" then 'Verificar caracteres inválidos if instr(request("login"),"'")>0 or instr(request("senha"),"'")>0 then numErro = numErro + 1 End if if numErro = 0 then set rs = conn.execute(" Select * from Usuarios where login='" & request("login") & "' and senha='"&request("senha")&"'") if not rs.eof then session("numUsuario")=rs("numUsuario") response.redirect("admin.asp") else msgErro = "Login ou senha incorretos!" numErro = numErro + 1 end if End if End if %> Administração

TQM
     
 
Manutenção do Site
Digite o seu LOGIN e sua SENHA
nos campos abaixo e clique no botão entrar.

Login:
Senha:

<% if numErro > 0 then response.write "

"&msgErro&"

" end if %>