<% '------------------------------------------- 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 '-------------------- CDA=21 pagina=trim(request("pagina")) If trim(pagina) = "" then pagina=1 session("pagina")=pagina else session("pagina")=pagina End if '-------------------- registrosPagina = 10 contaloop=0 contador = 0 Set RsIntro = Server.CreateObject("ADODB.RecordSet") Set RsIntro.ActiveConnection = Cnn StrQuery= "SELECT * FROM VW_ECOM_PRODUTO WHERE CDA_ECOM_PROD_CAT='"&CDA&"' AND CODSTATUS='0' ORDER BY DT_ADD DESC" ' response.write StrQuery RsIntro.Open StrQuery, Cnn,3,3 '-------------------------------------------------------- totalRegistros = RsIntro.recordCount totalRegistroPagina = totalRegistros/registrosPagina If (Int(totalRegistroPagina)-totalRegistroPagina < 0) then ' Verifica se o valor é menor que 0 totalRegistroPagina = int(totalRegistroPagina) + 1 End If If Request.QueryString("pagina")<>"" Then 'Pega a pagina para listar pagina = CInt(Request.QueryString("pagina")) End If inicio = ( pagina - 1 ) * registrosPagina final = registrosPagina + inicio contador = 0 '-------------------------------------------------------- Function MostraPag() response.write "" For a=1 to totalRegistroPagina 'If a =< 10 then If trim(a)=request("pagina") Then response.Write "" Else response.Write "" End if 'End IF Next response.write "
"&a&""&a&"
" End Function %> Novidades

Notícias e Informativos


Conheça nossas soluções destinadas a linha e reparo de esteiras industriais

    <%=Descricao%>
    <% Do While Not RsIntro.Eof and contador < final contador = contador + 1 If contador > inicio Then Session("galeriaid")= TRIM(RsIntro("CDA_ECOM_PRODUTO")) Session("CDA-PG")=Session("galeriaid") Response.write "
      " Response.write "

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


      " Response.write ""& TRIM(RsIntro("DT_ADD")) &"

      " Response.write "
      " Response.write TRIM(RsIntro("TXT_DESCRICAO")) %> <% if TRIM(RsIntro("TXT_URL")) <> "" then Response.write "
      Fonte: "& TRIM(RsIntro("TXT_URL")) &"
      " end if Response.write "
      " %> <% Response.write "

      " Session("CDA-PG")="" End If pagina=pagina+1 RsIntro.movenext Loop MostraPag() Response.write "
    " %>