<% area = "acontece" %> <% template = "full" %> <% NewsId = request("id") if NewsId = "" then response.redirect "default.asp" end if DIM conn CALL AbreConexao ' selecionando últimas notícias SQL01 = "SELECT * FROM news N, editoria E WHERE N.NewsEditoria = E.EditoriaID AND N.NewsId = " & NewsId SET RB01 = server.createobject("ADODB.RecordSet") RB01.open SQL01, conn, 3,1 'se não encontrar nada, volta para home de gtt if RB01.eof then response.redirect "default.asp" end if %> CBCE > <%=RB01("NewsTitulo")%>
<%=RB01("NewsData")%> - <%=RB01("EditoriaNome")%>

<%=RB01("NewsTitulo")%>

<% if RB01("NewsSubTitulo") <> "" then %>

<%=RB01("NewsSubTitulo")%>

<% end if %> <% if RB01("NewsAutor") <> "" then %>

Por: <% if RB01("NewsAutorContato") <> "" then %>"><% end if %><%=RB01("NewsAutor")%><% if RB01("NewsAutorContato") <> "" then %><% end if %>

<% end if %> <% if RB01("NewsConteudo") <> "" then %>

<%=RB01("NewsConteudo")%>

<% end if %> <% if RB01("NewsURL") <> "" then %>

Endereço:"><%=RB01("NewsURL")%>

<% end if %> <% if RB01("NewsFile") <> "" then %>

Arquivo:"><%=RB01("NewsFile")%>

<% end if %>