<%
if Request.serverVariables("HTTPS") = "off" then
pr = Request.QueryString()
if pr <> "" then
pr = "?"& pr
end if
sUrl = Request.ServerVariables("URL")
if instr(sUrl, "recibo_visanet.asp") = 0 then
' Response.Write(Application("SiteSeguro")& "/"& Application("Nome") & sURL & pr)
' Response.Write(" "&Request.ServerVariables("HTTP_REFERER"))
' Response.End()
Response.Redirect(Application("SiteSeguro")& "/"& Application("Nome") & sUrl & pr)
end if
end if %>
<%
if Session("referencia") = "" then
url = Request.ServerVariables("HTTP_REFERER")
if url = "" then
url = "Foi digitado"
end if
Call Verifica_banner(url)
end if
' *********************************************************
' Versão 5.0 - 08/08/2003
' default.asp
' *********************************************************
'Página Default - Monta o menu e a vitrine, dentro do layout padrão
%>
<%=Application("NomeLoja")%>
<% if Application("SiteManutencao") = "Nao" then %>