<%@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") %>
<% rs.movenext wend FecharRecordset rs %>
 

 
<% FecharBD Conn %>