Validação de login

[VINICIUS RAMOS 0]

Criei um arquivo .asp para validação de login onde na terceira tentativa deveria ocorrer um erro com mensagem de matricula bloqueada. A validação no banco está ocorrendo quando informada de forma correta, porém, após a terceira tentativa errada não está sendo exibida a mensagem.Alguém pode me ajudar por favor.Segue abaixo o código

<%response.buffer="true"%><%vlogin=request.form("login")vsenha=request.form("senha")Set con = Server.CreateObject( "adodb.Connection" ) con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Projeto_Final_II\GERINC2.mdb"set rh=con.execute("select * from usuarios where matricula='" & vlogin & "' and senha='" & vsenha & "'")set var = con.Execute ("INSERT INTO tablogin (login) VALUES ('"&vlogin&"')")if vlogin = "" thenresponse.write"<br>Matrícula Em Branco! Volte e tente novamente!"set var = con.Execute ("INSERT INTO tablogin (login) VALUES ('"&vlogin&"')")elseif vsenha = "" thenresponse.write"<br>Senha Em Branco! Volte e tente novamente!"set var = con.Execute ("INSERT INTO tablogin (login) VALUES ('"&vlogin&"')")elseif rh.EOF thenresponse.write"Senha ou Login inválido!Volte e tente novamente."set var = con.Execute ("INSERT INTO tablogin (login) VALUES ('"&vlogin&"')")elsesession("logado")="sim"if rh("cargo") = "funcionario" then response.redirect"Menu_Funcionario.htm"elseif rh("cargo") = "coordenador" thenvar = 0response.redirect"menu_coordenador.htm"elseif rh("cargo") = "engenheiro" thenresponse.redirect"menu_engenheiro.htm"end ifend ifend ifend ifend ifend if%>

[smith 0]

Onde você está contanto as tentativas ????

 

acho q o correto seria +- assim:

 

 

if session("tentativas")>3 then'AQUI você FAZ O BLOQUEIO DA CONTA COM A DEVIDA MENSAGEM PARA O USUÁRIOend ifvlogin=request.form("login")vsenha=request.form("senha")if vlogin="" or vsenha="" then 'CAMPOS VAZIOS, MOSTRA MENSAGEM DE ERROelse'PROCURA NO BD O USARIOset rh=con.execute("select * from usuarios where matricula='" & vlogin & "' and senha='" & vsenha & "'")if rh.eof thensession("tentativas")=session("tentativas")+1'MENSAGEM DE ERRO , USUÁRIO INVÁLIDOelse'USUÁRIO VÁLIDO'... SEGUE O CÓDIGOend ifend if

 

Falei besteira ??? :P