% Dim Conn, RS Dim strTitulo, dtData, strTexto, strAutor, strFoto, cols Dim cw %> <% 'Full banner 468x60 posicao_bannertop = 1 id_lado_bannertop = 2 id_secao_bannertop = 27 %>
Patrocinadores - Novidades
<%
idPatrocinador = request.querystring("idPatrocinador")
if idPatrocinador = "" then
idPatrocinador = request.querystring("id_artigo")
end if
complemento = "?idPatrocinador="&idPatrocinador %>
<%
Hoje = year(date)&"/"&PreencheZero(month(date),2)&"/"&PreencheZero(day(date),2)
if request("nv") = "1" then
sql = "SELECT id_artigo, str_titulo, tx_texto, imagem, str_autor, foto_autor, email_form, dt_data "&_
"FROM TB_artigo "&_
"where id_artigo = "&idPatrocinador&""
else
sql = "SELECT id_artigo, str_titulo, tx_texto, imagem, str_autor, foto_autor, email_form, dt_data "&_
"FROM TB_artigo "&_
"where id_artigo_antigo = "&idPatrocinador&""
end if
set rs = DB.Execute(sql)
titulo = rs("str_titulo")
email_form = rs("email_form") %>
|
<% call exibir_banner (1, 3, 27) %> <% call exibir_banner (2, 3, 27) %> <% call exibir_banner (3, 3, 27) %> |
<% secao = "Patrocinadores - Novidades"
strTitulo = Titulo %>