<%@ 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 PASTORAL ORDER BY FECHA DESC" 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 %>

Pastoral Vocacional   Pastorales <% 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%> Asunto Fecha   <%=rs(2)%> <%=rs(1)%>  Entrar       <% if totalReg > CInt(Application("maxList")) then dim limInf limInf=round(20-elementosMos/2) + 1 dim i i=0 for i=0 to limInf Response.Write "" next for i=0 to totalReg/Application("maxList") if i=page/Application("maxList") then Response.Write "" else Response.Write "" end if next for i=(linInf + elementosMos) to 20 Response.Write "" next end if %>   " & i+1 & " " & i+1 & "         <% rs.Close set rs=nothing conn.Close set conn=nothing %>     Volver Unión Eucarística Reparadora © Made by bravored.com