:: Pacific Network - Notícias ::

<%@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 ::

DESTAQUE

<% CriarRecordset rs rs.open "SELECT top 1 id, titulo, resumo, thumbnail FROM MENUDINAMICO INNER JOIN CONTEUDODINAMICO ON MENUDINAMICO.ID_menudinamico = CONTEUDODINAMICO.nomenomenu where nome_menudinamico = 'Notícias' order by materiadecapa desc, dataINSERCAO desc, ID desc", Conn, 1, 1 while (not rs.bof) and (not rs.eof) materiadefora = rs("ID") %>

<%= ucase(rs("titulo")) %>

<%= rs("resumo") %>

"><% if (rs("thumbnail") <> "imagens/noimage.gif") and (rs("thumbnail") <> "") then %>

" width="250" height="185" align="left" border="0" /> <% end if %>

<% rs.movenext wend FecharRecordset rs %>

<% not_data2 = "01/01/1900" CriarRecordset rs rs.open "SELECT top 20 id, dataINSERCAO, titulo, resumo, thumbnail FROM MENUDINAMICO INNER JOIN CONTEUDODINAMICO ON MENUDINAMICO.ID_menudinamico = CONTEUDODINAMICO.nomenomenu where nome_menudinamico = 'Notícias' and id <> " & materiadefora & " order by dataINSERCAO desc, ID desc", Conn, 1, 1 while (not rs.bof) and (not rs.eof) not_data = rs("dataINSERCAO") not_id = rs("id") %> <% if not_data <> not_data2 then %> <% end if %> <% not_data2 = rs("dataINSERCAO") rs.movenext wend FecharRecordset rs %>


	<%= formata_data(rs("dataINSERCAO")) %>

	"> <%= ucase(rs("titulo")) %>

<% FecharBD Conn %>