<%@ Language=VBScript %> <% 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 Palabras clave de la Espiritualidad En Unión de María Inmaculada Ser Apóstoles Fondo Solidario Historia Intencionalidad Proyectos "Quiero Colaborar!" Editorial El Granito de Arena Libros Revista El Granito de Arena Revista Infantil Eucarística RIE 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