%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<%
ID = request.QueryString("ID")
CANAL = request.QueryString("CANAL")
CATEGORIA = request.QueryString("CATEGORIA")
if canal = "Produtos" then canal = "Produtos"
%>
:: Pacific Network - Produtos ::
<%
if primeiroID <> "" then
if ID = "" then ID = primeiroID
ConectarBD Conn, "websitepacific.mdb"
CriarRecordset rs
rs.open "SELECT * FROM CONTEUDODINAMICO where ID = " & ID & "", Conn, 1, 1
if rs.recordcount > 0 then
%>
Produtos em atualização!
Desculpe-nos o transtorno!
Em breve estará no ar um novo site!
<%
end if
FecharRecordset rs
FecharBD Conn
end if
%>