<% '------------------------------------------- NovoUrl = Request.ServerVariables("SERVER_NAME") Urlip = Request.ServerVariables("REMOTE_ADDR") 'Response.write NovoUrl Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires = Now() - 1 Response.ExpiresAbsolute = Now() - 1 Response.CacheControl = "private" Response.Buffer = True %> Soluções
<% CDA=5 Session("CDA-PG")=trim(CDA) Set RsIntro = Server.CreateObject("ADODB.RecordSet") strIntro= "SELECT * FROM VW_ECOM_PRODUTO WHERE CDA_ECOM_PROD_CAT='"&CDA&"' AND CODSTATUS='0' ORDER BY length(TXT_PRODUTO),TXT_PRODUTO" RsIntro.Open strIntro, Cnn,3,3 If NOT RsIntro.EOF Then Do While Not RsIntro.Eof Session("galeriaid")= TRIM(RsIntro("CDA_ECOM_PRODUTO")) Response.write "

"& TRIM(RsIntro("TXT_PRODUTO")) &"


" Response.write "

Conheça nossas soluções destinadas a manutenção de correias transportadoras



" Response.write "
    " Response.write TRIM(RsIntro("TXT_DESCRICAO")) Response.write "
" RsIntro.movenext Loop Else Response.write "

Este conteúdo encontra-se em mantutenção temporária

" End IF Set RsIntro = Nothing %>