<%@LANGUAGE="VBSCRIPT"%> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Todopuntodecruz.com <% Dim mostrar 'cantidad de registros a mostrar por página Dim cant_paginas 'cantidad de páginas que recibimos Dim pagina_actual 'La página que mostramos Dim registro_mostrado 'Contador utilizado para mostrar las páginas Dim I 'Variable Loop mostrar = 15 ' Pueden modificar este número para cambiar la cantidad de registros por página ' IF para saber que página mostrar If Request.QueryString("page") = "" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If subsec= Request.Querystring("subseccion") strsql = "SELECT * FROM mercerias" ' Creamos la conexion a la base de datos Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open MM_con_ecom_STRING 'oConn.Open StrConn ' Creamos el RecordSet y definimos la cantidad de registros a mostrar Set rs_frenchred = Server.CreateObject("ADODB.Recordset") rs_frenchred.PageSize = mostrar rs_frenchred.CacheSize = mostrar ' Abrimos la tabla... rs_frenchred.Open strSQL, oConn,3,1 'contamos las páginas que se formaron con la variable mostrar. cant_paginas = rs_frenchred.PageCount ' Si el pedido de página cae afuera del rango, ' lo modificamos para que caiga adentro If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 %>
 
<%' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF If cant_paginas = 0 Then %> <% response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "

Lo sentimos, pero en estos momentos no podemos
ofrecerte ningún producto de este tipo...

" response.write "

 

" response.write "

" %> <% Else ' Nos movemos a la página elegida rs_frenchred.AbsolutePage = pagina_actual ' Mostramos el dato de que página estamos... %>
 



Tal vez prefieras comprar nuestros productos en una tienda. Estas son las tiendas en las que podrás encontrarlos. Si en alguna de ellas no tienen lo que buscas, pídeles que nos lo encarguen y te lo haremos llegar a la propia tienda.

Página <%=pagina_actual%> de <%= cant_paginas%>

 
  <% registro_mostrado = 0 Do While registro_mostrado < mostrar And Not rs_frenchred.EOF %> <%registro_mostrado = registro_mostrado + 1 rs_frenchred.MoveNext If NOT rs_frenchred.EOF Then%> <% ' Sumamos 1 a los mostrados registro_mostrado = registro_mostrado + 1 ' Nos movemos al próximo registro... rs_frenchred.MoveNext End If Loop 'listo... 'End If ' Cerramos y limpiamos... rs_frenchred.Close Set rs_frenchred = Nothing oConn.Close Set oConn = Nothing ' Ahora mostramos los enlaces a las otras páginas con el resto de los registros... %>
<%=(rs_frenchred("Nom"))%> <%=(rs_frenchred("telefono"))%> <%=(rs_frenchred("calle"))%> <%=(rs_frenchred("poblacion"))%>
<%=(rs_frenchred("Provincia"))%>
<%=rs_frenchred("cp")%>
<%=(rs_frenchred("Nom"))%>
<%=(rs_frenchred("telefono"))%> <%=(rs_frenchred("calle"))%> <%=(rs_frenchred("poblacion"))%>
  <%=(rs_frenchred("Provincia"))%>
<%=rs_frenchred("cp")%>
 
<%If pagina_actual > 1 Then%>
  ">[<< Anterior] <% End If ' mostramos la paginacion por numeros de página For I = 1 To cant_paginas If I = pagina_actual Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I If pagina_actual < cant_paginas Then %> [Próximo >>] <% End If 'Fin... %>
<% End If %>
Información legal