Bloquear pagina restrita a usuarios que ñ estão logados...

uso o seguinte codigo para efetuar o login:

<%db = "db/usuarios" Set Conexao = CreateObject("ADODB.CONNECTION")conStr ="DRIVER={Microsoft Access Driver (.mdb)}; DBQ=" & server.MapPath(db)ConexaoAberta = FALSESub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end subSub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub AbreConexao login = Replace(request.form("login"), "'", "/") senha = Replace(request.form("senha"), "'", "/") Sql = "SELECT FROM users WHERE login = '"&login&"' " Sql = Sql & "AND senha='"&senha&"' " Set Rs = Conexao.Execute(Sql) if not rs.eof then Session("yep") = True Session("id") = RS("id") Session("login") = RS("login") Response.Redirect "Principal.asp" else Response.Redirect "falha.asp" end if FechaConexao %>

e o codigo do formulario, se o login for verdadeiro:Principal.asp

<% if Session("yep") < 0 thenResponse.Write("Login efetuado com corretamente!!!")else Response.Redirect("falha.asp")end if%><table width="90" border="2"> <tr> <td width="33"> </td> <td width="39"> </td> </tr> <tr> <td height="28"> </td> <td><form name="form1" method="post" action="sair.asp"> <label> <input type="submit" name="Submit" value="Sair"> </label> </form> </td> </tr></table><p> </p>

acho que a session acima ñ funciona corretamente......se o login for coreto ela faz o response.write corretamente.......e se for falso tbm da serto o redrect...oq eu estou tentando fazer é o seguinte:se um usuario digitar no navegador o endereço da pagina Principal.asp, o mesmo ñ podera ter acesso a pagina......mas ñ consigo fazer isso... se o mesmo digitar ele acessa normalmente, por isso acho que esse código tem algum erro...Muito obrigado des de ja.