<% '------------------------------------------- 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 ' BUSCA TEXTO DAS PAGINAS --------------------------- CDAPAGINA="15" Set ObjContTxt = Server.CreateObject("ADODB.RecordSet") ConTxt= "select * from VW_ECOM_PRODUTO where CDA_ECOM_PROD_CAT='"&trim(CDAPAGINA)&"' " 'response.write ConTxt ObjContTxt.Open ConTxt, Cnn,3,3 Titulo=ObjContTxt("TXT_PRODUTO") Descricao=ObjContTxt("TXT_DESCRICAO") Set ObjContTxt = Nothing %> Serviços

<%=Titulo%>


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

    <%=Descricao%>
<% CDA="2" Set ObjConSub = Server.CreateObject("ADODB.RecordSet") ConSub= "select * from VW_ECOM_PRODUTO where CDA_ECOM_PROD_CAT='"&trim(CDA)&"' " 'response.write ConSub ObjConSub.Open ConSub, Cnn,3,3 %>
    <%Do While Not ObjConSub.Eof%>
  • <% On error resume next CDA_PROD=Trim(ObjConSub("CDA_ECOM_PRODUTO")) PastaTemp = Server.MapPath(Application("vroot") & "admin/docs/") CaminhoLocal=PastaTemp &"\"& CDA_PROD &"\" 'response.write CaminhoLocal set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder(CaminhoLocal&"\") for each x in fo.Files ArquivoLocal= replace(Lcase(x),Lcase(CaminhoLocal),"") next if trim(ArquivoLocal) <> "" then response.write "" else response.write "" end if set fo=nothing set fs=nothing %>
    &ID=<%=UCase(ObjConSub("TXT_PRODUTO"))%>" alt="<%=UCase(ObjConSub("TXT_PRODUTO"))%>" title="<%=UCase(ObjConSub("TXT_PRODUTO"))%>">
    Detalhes

    <%=UCase(ObjConSub("TXT_PRODUTO"))%>




  • <% ObjConSub.movenext Loop Set ObjConSub = Nothing %>