<% Dim IdiomaPag IdiomaPag="es" Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) 'Paginación de registros Const PAGE_SIZE = 10 Dim intPageCurrent Dim intPageCount Dim intRecordCount Dim i Dim imagenID Dim intOrder Dim strImagen Dim strDescripcion_es Dim strDescripcion_en intPageCurrent = 1 If IsNumeric(Request.QueryString("pag")) then If Request.QueryString("pag") >= 1 AND Request.QueryString("pag") < 32000 then intPageCurrent = Cint(Request.QueryString("pag")) End If End If %> Club Rugby Seminario Tarazona
<%=UCase(":: Links")%>
<% Dim cont cont=0 Dim link,link2 strSQL="SELECT * FROM tLinks ORDER BY intOrder" 'Paginación de registros objRs.CursorLocation = 3 'adUseClient objRs.CursorType = 3 'adOpenStatic objRs.PageSize = PAGE_SIZE objRs.CacheSize = PAGE_SIZE objRs.Open strSQL, objCn intRecordCount = objRs.RecordCount intPageCount = objRs.PageCount %>
  <%= intRecordCount %> Registros encontrados. Se muestran <%= PAGE_SIZE %>. Página <%= intPageCurrent %> de <%= intPageCount %>  
<% if not objRs.EOF then objRs.AbsolutePage = intPageCurrent Do While Not objRs.eof AND objRs.AbsolutePage = intPageCurrent %> <% cont=cont+1 objRs.MoveNext Loop else%> <% end if objRs.Close %>
<%if objRs("strImagen")<>"" Then%>
" width="120">
<%end if%> " target='linksnot' class="text"><%="" & objRs("strLink") & ""%> <%="
" & objRs("strDescripcion_es")%>
Sistema en mantenimiento
<% '==============Paginación inferior============================ If intPageCount > 1 then Response.Write "
" 'Anterior If intPageCurrent > 1 then Response.Write " << Anterior  " End If 'Numeración For i =1 to intPageCount If i = intPageCurrent then Response.Write " " & i & "" else Response.Write " " & i & "" End If Next 'Siguiente If intPageCurrent < intPageCount then Response.Write "   Siguiente >>" End If Response.Write "
" End If '=========================================================== %>