<%@ LANGUAGE=VBScript%> <% Session.LCID = 1046 Response.Expires = 0 Response.ExpiresAbsolute = 0 ' Internet Explorer Response.AddHeader "pragma", "no-cache" ' Netscape Dim conpas, rspas, sSql, cnpath Dim strNoRec Dim i, iPerPage, iTotal, pag If Request.QueryString("pag") = "2" Then pag = "2" Else pag = "1" End If iPerPage = 4 i = 0 iTotal = 0 set conpas = Server.CreateObject("adodb.connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\dados.mdb" conpas.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath sSql = "SELECT * FROM noticias ORDER BY id DESC;" Set rspas = conpas.Execute(sSql) If NOT (rspas.EOF AND rspas.BOF) Then strNoRec = 0 Do While NOT rspas.EOF iTotal = iTotal + 1 rspas.MoveNext Loop rspas.MoveFirst Else strNoRec = 1 End If %> C.V.I. Rio - Centro de Vida independente do Rio de Janeiro
CVI -Rio
   
   
 
   
   
   
  icone de seção Lista de Notícias
 
Voltar       
   
  <% If strNoRec = 0 Then Do While NOT rspas.EOF If pag = "1" Then If i < iPerPage Then %> <% End If ElseIf pag = "2" Then If i >= iPerPage AND i < 2 * iPerPage Then %> <% End If End If i = i + 1 rspas.MoveNext Loop Else %> <% End If rspas.Close conpas.Close Set rspas = Nothing Set conpas = Nothing %>

<%= rspas("titulo") %>   - <%= rspas("data") %>

<%= rspas("resumo") %>
<% If rspas("fonte") <> "0" AND rspas("fonte") <> "" Then %>
fonte: <%=rspas("fonte")%> <% End If %>

">mais detalhes"> detalhes



<%= rspas("titulo") %>   - <%= rspas("data") %>

<%= rspas("resumo") %>
<% If rspas("fonte") <> "0" AND rspas("fonte") <> "" Then %>
fonte: <%=rspas("fonte")%> <% End If %>
">
mais detalhes"> detalhes">



Não há notícias no momento.

Página 1 <% If iTotal > iPerPage Then %> Página 2 <% End If %>

   
   
   
 
   
 
icone de seção Destaques   icone de seção Notícias
     
Depoimentos Depoimentos   Publicações Publicações
   
 
 
   
   
 
cone de lupa no texto
   
 
Para aumentar
o texto:
   
 

clique no menu
Exibir do Internet Explorer e, em seguida, clique em Tamanho do texto.

Pressione F5 para atualizar a tela
   
 
   
 
Troque abaixo
a cor de fundo
da página
 
   

 
 
 

CVI-Rio - Centro de Vida Independente do Rio de Janeiro
Rua Marquês de São Vicente, 225 – Estacionamento da PUC
Gávea - Rio de Janeiro – RJ.
Tel. (021) 2512 -1088 - e-mail: cvirio@cvi.puc-rio.br