<%@ 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 titulo, texto, txtlink, link, qimg1, img2, img3 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 destaques WHERE id = " & Request.QueryString("id") & ";" Set rspas = conpas.Execute(sSql) If NOT (rspas.EOF AND rspas.BOF) Then titulo = rspas("titulo") texto = rspas("texto") txtlink = rspas("txtlink") link = rspas("link") img1 = rspas("img1") img2 = rspas("img2") img3 = rspas("img3") alt1 = rspas("alt1") alt2 = rspas("alt2") alt3 = rspas("alt3") strNoRec = 0 Else strNoRec = 1 End If %> C.V.I. Rio - Centro de Vida independente do Rio de Janeiro
CVI -Rio
   
   
 
   
   
   
  icone de seção Destaques
   
 
       Lista de Destaques
Voltar      
   
   
  <% If NOT CBool(strNoRec) Then %> <% If img1 <> "0" Then %>
" alt="<%= alt1 %>" hspace="0" vspace="0" align="left">  

 
<% End If %>

<%=titulo%>

<%= texto %> <%= "

" & txtlink%><%= "
" & link%>

<% If img2 <> "0" Then %>
" alt="<%= alt2 %>" hspace="0" vspace="0" align="left">  

 

  
<% End If %>





<% If img3 <> "0" Then %>
" alt="<%= alt3 %>" hspace="0" vspace="0" align="left">  

 

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

 
<% rspas.Close conpas.Close Set rspas = Nothing Set conpas = Nothing %>