none
estou com problema neste codigo RRS feed

  • Pergunta

  • 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
    %>
    ---------------------------------
    quinta-feira, 1 de junho de 2006 16:43

Todas as Respostas

  • 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;

    sexta-feira, 2 de junho de 2006 19:47