<% 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 SeccionGaleriaID Dim strImgSeccion Dim strNombreSeccion_es Dim strNombreSeccion_en Dim intOrder Dim bolActivo Dim strURLpaginacion strURLpaginacion = Request.ServerVariables("strURLpaginacion") 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(":: Galería de imágenes")%>
<% Dim x strSQL = "SELECT * FROM tSeccionesGaleria WHERE bolActivo=true ORDER BY intOrder DESC" '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 %>  
" method="post"> <% Dim cont cont=0 if objRs.eof then %> <% Else objRs.AbsolutePage = intPageCurrent Do While Not objRs.eof AND objRs.AbsolutePage = intPageCurrent if x = 0 then Response.Write "" End if SeccionGaleriaID = objRs("SeccionGaleriaID") strImgSeccion = objRs("strImgSeccion") strNombreSeccion_es = objRs("strNombreSeccion_es") strNombreSeccion_en = objRs("strNombreSeccion_en") %> <% x = x + 1 If x > 1 then x = 0 %> <% End if %> <% cont=cont+1 objRs.MoveNext Loop if x <> 0 then Response.Write "" End if End if objRs.Close %>
No hay secciones de imágenes
<%= strNombreSeccion_es %>
<%= strNombreSeccion_es %>
<% '==============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 '=========================================================== %>