Tenho um servico que funciona perfeitamente na web, mas estou colocando ele como teste no IIS do server 2003, porem ele não grava as secoes de jeito nenhum. Com o codigo abaixo ele sempre cai na ultima linha dizendo que não tem acesso a função mas tem sim, e se eu digitar o caminho do asp direto , ele diz que nãso estou logado.
<%@ Language=VBScript %>
<% Option Explicit %>
<%Response.Buffer = True %>
Dim page, list_pages(46),url
page=Request.QueryString("page")
list_pages(1)="cabProcuraCompleta.asp"
list_pages(2)="listarLojasStatus.asp'"
list_pages(3)="listaApagarLojas.asp"
url=""
Select Case page
Case 1 if VerificaAcessos("1/11/2/22/5/55/6") then
url=list_pages(1)
else
url=""
end if
Case 2 if VerificaAcessos("1/11/2/22/5/55/6") then
url=list_pages(2)
else
url=""
end if
End Select
if url="" then
ImprimirMsgErro("Você não tem acesso a esta função")
Pergunta
Guest Fernando Saboia
Bom dia Galera preciso de um Help
Tenho um servico que funciona perfeitamente na web, mas estou colocando ele como teste no IIS do server 2003, porem ele não grava as secoes de jeito nenhum. Com o codigo abaixo ele sempre cai na ultima linha dizendo que não tem acesso a função mas tem sim, e se eu digitar o caminho do asp direto , ele diz que nãso estou logado.
<%@ Language=VBScript %>
<% Option Explicit %>
<%Response.Buffer = True %>
Dim page, list_pages(46),url
page=Request.QueryString("page")
list_pages(1)="cabProcuraCompleta.asp"
list_pages(2)="listarLojasStatus.asp'"
list_pages(3)="listaApagarLojas.asp"
url=""
Select Case page
Case 1 if VerificaAcessos("1/11/2/22/5/55/6") then
url=list_pages(1)
else
url=""
end if
Case 2 if VerificaAcessos("1/11/2/22/5/55/6") then
url=list_pages(2)
else
url=""
end if
End Select
if url="" then
ImprimirMsgErro("Você não tem acesso a esta função")
else
Redirecionar(url)
end if
%>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.