<% espaco = "" cod = sqlTextFilter(replace(request("cod"),"'","")) SQL = "select * from Imprensa where cod_imp = '"&cod&"'" 'Response.Write(SQL) set rs = server.createobject("adodb.recordset") rs.open Sql,conn,1 %> NOTÍCIAS - Socicam - Terminais de Passageiros
<% call nav(espaco) %>

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

Mais notícias >>

<% Function InverteData(varData) data = CStr(varData) auxHora = Right("0" & hour(data) ,2) & ":" & Right("0" & minute(data) ,2) auxData = Right("0" & day(data) ,2) & "/" & Right("0" & month(data) ,2) & "/" & Right("20" & year(data) ,4 ) InverteData = auxData & " - " & auxHora end Function %>