<%@ Language=VBScript %> <% Set rs = Server.CreateObject("ADODB.Recordset") Set conn = Server.CreateObject("ADODB.Connection") Smpath="DBQ=" & Server.Mappath(Application("DBroot")) conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Smpath ,"","" sql="SELECT * FROM comunicaciones 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 %>

Convocatorias Comunicaciones   Comunicaciones <% 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 & "             Volver <% rs.Close set rs=nothing conn.Close set conn=nothing %> Unión Eucarística Reparadora © Made by bravored.com