estou com problema neste codigo

Question

esse codigo naum chama a pagina correspondente a senha de cada cliente sempre chama a mesma independente da senha

------------------------------------
<!--#include file="validacao.asp"-->
<%
vuser = Trim(Request.Form("user"))
vsenha = Trim(Request.Form("senha"))

If Validacao(Vuser,Vsenha) Then %>
    <!-- #include file="conexao.asp" -->
    <%
    Dim sql, rs, bank

    sql = "SELECT * FROM tbuser WHERE user = '" & vuser & "' and senha = '" & vsenha & "'"

    abrebanco

    Set rs = bank.execute(sql)

    If rs.eof Then
        rs.close
        Set rs = Nothing
        fechabanco
        Response.Redirect("admlogin.asp?erro=1")
    Else
        Session("login") = True
        Session("usuario") = vuser
        rs.Close
        Set rs = Nothing
        fechabanco
        select case (vuser)
         Case "luiz"
          Response.Redirect("adm.asp")
         Case "joao"
          Response.Redirect("joao.htm")
         End Select
    End if

else
    Response.Redirect("admlogin.asp?erro=1")

end If
%>
---------------------------------

Answer 1

Wanderson;
Tenta colocar isso bem no topo de sua página:

<%

   RESPONSE.BUFFER=FALSE
   RESPONSE.EXPIRES=0
   Response.Expires = 60
   Response.Expiresabsolute = Now() - 1
   Response.AddHeader "pragma","no-cache"
   Response.AddHeader "cache-control","private"
   Response.CacheControl = "no-cache"

%>

Espero ter ajudado;