<%@ Language=VBScript %> ::Unión Eucarística Reparadora:: <% dim totalReg Set rs = Server.CreateObject("ADODB.Recordset") Set conn = Server.CreateObject("ADODB.Connection") Smpath=Server.Mappath(Application("DBroot")) conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Smpath ,"","" sql="SELECT * FROM proyectos ORDER BY cod asc" rs.Open sql,conn,3,3 totalReg=rs.RecordCount dim page if Request.QueryString("num") <> "" then page=cint(Request.QueryString("num"))*Application("maxList") else page=0 end if %>
¿Quienes Somos?
Fundador
Espiritualidad
Fondo Solidario
Editorial El Granito de Arena
Noticias
Contacto
Mapa web
Fondo Solidario "Beato Manuel Gonzalez"
Historia Intencionalidad Proyectos Quiero Colaborar
Proyectos
<% if rs.RecordCount>0 then rs.Move page end if dim contador contador=0 %> <% while not rs.EOF and contador <% rs.MoveNext contador=contador+1 wend%>
"><%=rs(2).value%>
 
 
 
     <% rs.Close set rs=nothing conn.Close set conn=nothing %>

 

 

Volver
Unión Eucarística Reparadora © Made by bravored.com