<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="1046"%>
<%
'UrlPaginaAtual = Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")&"?"&Request.Querystring
if instr(UrlPaginaAtual,"select") or instr(UrlPaginaAtual,"insert") or instr(UrlPaginaAtual,"update") or instr(UrlPaginaAtual,"delete") or instr(UrlPaginaAtual,"from") or instr(UrlPaginaAtual,"where") or instr(UrlPaginaAtual,"union") then
response.redirect "https://www.sincontabi.com.br"
end if
FUNCTION stripHTML(strHTML)
Dim objRegExp, strOutput, tempStr
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|n)+?>"
strOutput = objRegExp.Replace(strHTML, "")
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput
Set objRegExp = Nothing
END FUNCTION
'----------------------------------------------- geral
geral_sql="select * from geral"
set geral = objconexao.execute(geral_sql)
site_titulo = geral("titulo")
site_slogan = geral("slogan")
site_keywords = geral("keywords")
site_descricao = geral("descricao")
site_url = geral("url")
'---------------------------------------------------------------- contador de visitas
contadorsql = "select * from tab_visitas"
set contadorrs = objconexao.execute(contadorsql)
'---------------------------------------------------------------- relacao de menus e submenus
sqlexibirmenu = "select * from tab_menu where mn_oculto=0 and mn_esubpasta=0 order by mn_peso desc, mn_titulo desc"
set rstexibirmenu = objconexao.execute(sqlexibirmenu)
set rstexibirmenu_inf = objconexao.execute(sqlexibirmenu)
'---------------------------------------------------------------- enquete
sqlvisivel = "select * from tab_enquete_poll where id=6"
set rsvisivel = objconexao.execute(sqlvisivel)
'---------------------------------------------------------------- relacao de notícias
noticiassql = "select * from tab_noticias where not_oculto=0 order by not_ordem desc, not_nome asc"
set noticias = objconexao.execute(noticiassql)
'---------------------------------------------------------------- popup
popupsql = "select * from tab_popup"
set popup = objconexao.execute(popupsql)
'---------------------------------------------------------------- relação de categorias de produtos
departamentos_sql="select * from tab_departamento order by dep_nome asc"
set departamentos_rs=objconexao.execute(departamentos_sql)
'---------------------------------------------------------------- relação de páginas
if request("idpagina")<>"" then
pagina_sql = "select * from tab_menu where mn_codigo = "&request("idpagina")
set pagina = objconexao.execute(pagina_sql)
end if
'---------------------------------------------------------------- relacao de notícias
noticiassql = "select * from tab_noticias where not_oculto=0 order by not_ordem desc, not_nome asc"
set noticias = objconexao.execute(noticiassql)
if request("info") <>"" or request("infoid") <>"" or request("infoid_noticia") <>"" then
else
If request.servervariables("HTTP_X_ORIGINAL_URL") = "" Then
UrlPaginaAtual = request.servervariables("URL")
Else
UrlPaginaAtual = request.servervariables("HTTP_X_ORIGINAL_URL")
End If
UrlPaginaAtual = replace(UrlPaginaAtual,"/","")
end if
desctr_sql = "select mn_desc, mn_url, mn_description, mn_keywords, mn_titulo from tab_menu where mn_url = '"&UrlPaginaAtual&"'"
set desctrs = objconexao.execute(desctr_sql)
if not desctrs.eof then
descricao_pagina = desctrs("mn_desc")
pagina_description = desctrs("mn_description")
pagina_keywords = desctrs("mn_keywords")
titulo_pagina = desctrs("mn_titulo")
end if
%>
<%if session("msg") = 20 then%><%end if%>
<%if session("msg") = 21 then%><%end if%>
<%if session("newsletter_incluir") = "1" then%><%end if%><%if session("newsletter_incluir") = "2" then%><%end if%>
<!--#include file="if_title.asp"-->capa.asp" />
<%if UrlPaginaAtual="home" then%>
" />
<%else%>
<%end if%>
<%if request("popup") = 0 then%><%if popup("pop_oculto")=1 then%><%else%>OnLoad = "PopUp()"<%end if%><%end if%><%end if%>>
<%=popup("pop_texto")%>
Compre aqui seu certificado digital
<%if UrlPaginaAtual="home" then%>
<%end if%>
<%
session("newsletter_incluir") = "0"
session("msg") = "0"
'------------------------ relação de páginas
if request("idpagina")<>"" then
pagina.close
set pagina=nothing
end if
'------------------------ fecha relação de categorias de produtos
departamentos_rs.close
set departamentos_rs=nothing
'------------------------ fecha noticias
noticias.close
set noticias=nothing
'------------------------ fecha enquete
rsvisivel.close
set rsvisivel=nothing
'------------------------ fecha popup
popup.close
set popup=nothing
'------------------------ fecha relacao de menus e submenus
rstexibirmenu.close
set rstexibirmenu=nothing
rstexibirmenu_inf.close
set rstexibirmenu_inf=nothing
'------------------------ fecha contador de visitas
contadorrs.close
set contadorrs=nothing
%>
