<% dim cod_noticia, sql, rs cod_noticia = request.querystring("noticia") if cod_noticia = empty then response.redirect "../"&nome_sec end if sql = "SELECT secao.cod AS codSec, " sql = sql & "secao.nome_secao AS nomSec ," sql = sql & "secao.nome_secao_url AS urlSec ," sql = sql & "noticias.Grau AS Grau ," sql = sql & "secao.Cor_Secao AS Cor_Secao ," sql = sql & "noticias.Titulo AS Titulo ," sql = sql & "noticias.Chamada AS Chamada ," sql = sql & "noticias.Texto AS Texto ," sql = sql & "noticias.Imagem AS Imagem ," sql = sql & "noticias.Imagem_TB AS Imagem2 ," sql = sql & "noticias.Data AS Data ," sql = sql & "noticias.Codigo AS CodNot ," sql = sql & "noticias.Texto AS Texto ," sql = sql & "noticias.Autor AS Autor ," sql = sql & "noticias.Fonte AS Fonte ," sql = sql & "noticias.Palavras_Chave AS Palavras_Chave ," sql = sql & "noticias.Chamada AS Chamada from (secao INNER JOIN noticias " sql = sql & "on secao.cod = noticias.codigo_secao) where publicado = 'sim' AND noticias.codigo = "&cod_noticia call AbreCon set rs = conexao.execute(sql) if rs.eof then response.write("Sem noticias no banco") response.end() end if%> <crossmidia>

Controle do texto: <% response.write "

" response.write rs("nomSec")&" - " response.write formatdatetime(rs("Data"),2)&"

" response.write vbnewline response.write "

" response.write rs("Titulo") response.write "

" response.write vbnewline response.write "

" response.write rs("Chamada") response.write "

" response.write vbnewline response.write "

" response.write rs("Texto") response.write "

" response.write vbnewline %>