%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
codigo = request.QueryString("codigo")
if isnumeric(codigo) = false then response.redirect("default.asp")
%>
<% ConectarBD Conn, "websitepacific.mdb" %>
:: Pacific Network - Notícias ::
<%
CriarRecordset rs
rs.open "SELECT top 1 * FROM MENUDINAMICO INNER JOIN CONTEUDODINAMICO ON MENUDINAMICO.ID_menudinamico = CONTEUDODINAMICO.nomenomenu where nome_menudinamico = 'Notícias' and id = " & codigo & " order by materiadecapa desc, dataINSERCAO desc, ID desc", Conn, 1, 1
while (not rs.bof) and (not rs.eof)
%>
<%= ucase(rs("titulo")) %>
Atualizado em <%= formata_data(rs("dataINSERCAO")) %>
<% if (rs("thumbnail") <> "imagens/noimage.gif") and (rs("thumbnail") <> "") then %>
" width="250" height="185" align="left" border="0" />
<% end if %>
<%= rs("materia") %>