NOTÍCIAS
<%=rs("Tit_Imp")%>
<%if not trim(rs("img_imp"))="" then response.write "" end if%> Autor: <%=rs("aut_imp")%> <%=suja_query(rs("tex_imp"))%>Fonte: <%=rs("fon_imp")%>
<% 'Faco um select que ira trazer todas as noticias' SqlG = "Select Tit_Imp, Cod_Imp, dat_imp "_ & " From Imprensa where delete_imp <> 1 "_ & " Order By dat_imp Desc " 'Construindo o RecordSet' Set RsG = Server.CreateObject("ADODB.Recordset") RsG.open SqlG ,conn,1 RsG.PageSize=5 RsG.absolutepage=1 no=0%> <%nv=cint(request("numpag")) if request("ant")="1" then nv=nv-1 elseif request("pro")="1" then nv=nv+1 end if if nv<>1 then if nv=2 then nv=nv*10 elseif nv>2 then nv=(nv-1)*20 end if RsG.movefirst for i=1 to nv if nv>session("nr") then response.redirect "noticias.asp?NumPag="&cint(request("numpag")) if not RsG.EOF then RsG.MoveNext next end if %>ÚLTIMAS NOTÍCIAS
-
<%
Do While Not RsG.EOF
no=no+1
if no>5 then
no=0
exit do
end if
%>
- <% data=split(cdate(RsG("dat_imp")), " ") ubound(data) response.Write(data(0)) %> "><%=RsG("Tit_Imp")%> <% RsG.MoveNext Loop %>