<% 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 x Dim SeccionGaleriaID SeccionGaleriaID=Request("ID") If IsNumeric(SeccionGaleriaID) then If SeccionGaleriaID >= 1 AND SeccionGaleriaID < 32000 then 'todo OK else Response.Clear Response.Redirect ("galleryindexes.asp") Response.End End If else Response.Clear Response.Redirect ("galleryindexes.asp") Response.End End If Dim strNombreSeccion_es strSQL="SELECT * FROM tGaleria INNER JOIN tSeccionesGaleria ON tSeccionesGaleria.SeccionGaleriaID=tGaleria.SeccionGaleriaID WHERE tGaleria.SeccionGaleriaID="&SeccionGaleriaID objRs.Open strSQL, objCn if objRs.EOF then Response.Clear Response.Redirect ("galleryindexes.asp") Response.End else strNombreSeccion_es=objRs("strNombreSeccion_es") end if objRs.Close 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(":: Imágenes de " & strNombreSeccion_es)%>
[Volver a galerías]
<% x=0 strSQL = "SELECT * FROM tGaleria WHERE SeccionGaleriaID="&SeccionGaleriaID& " 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 imagenID = objRs("imagenID") strDescripcion_Es = objRs("strDescripcion_Es") strDescripcion_En = objRs("strDescripcion_En") strImagen = objRs("strImagen") %> <% 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 %>
bgcolor="#E3E3E3" <% End if %>>
bgcolor="#E4F0FB" <% End if %>> No hay imágenes en sistema
<%= strDescripcion_Es %>
<%=strDescripcion_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 '=========================================================== %>