<% Dim IdiomaPag IdiomaPag="es" Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Dim objRs2 Set objRs2 = Server.CreateObject ("ADODB.Recordset") Dim x Call ConectarDb Dim strSQL Dim seccionProductoID seccionProductoID=Request("ID") If IsNumeric(seccionProductoID) then If seccionProductoID >= 1 AND seccionProductoID < 32000 then 'todo OK else Response.Clear Response.Redirect ("secciones.asp") Response.End End If else Response.Clear Response.Redirect ("secciones.asp") Response.End End If Dim strSeccion strSQL="SELECT * FROM tSeccionesProductos WHERE seccionProductoID="&seccionProductoID objRs.Open strSQL,objCn if not objRs.EOF then strSeccion=objRs("strNombreSeccion_Es") end if objRs.Close 'Paginación de registros Const PAGE_SIZE =4 Dim intPageCurrent Dim intPageCount Dim intRecordCount Dim i Dim strURLpaginacion strURLpaginacion = Request.ServerVariables("URL") 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 Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) %> Club Rugby Seminario Tarazona
<%=UCase(":: Productos de " & strSeccion)%>
<% Dim pedido strSQL = " SELECT * FROM vProductos WHERE seccionProductoID = " & seccionProductoID & " AND bolVender=True " '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 If objRs.BOF and objRs.EOF then %> <% else %> <% objRs.AbsolutePage = intPageCurrent Dim strEan strEan="" Do While Not objRs.eof AND objRs.AbsolutePage = intPageCurrent %> <% objRs.MoveNext Loop End If objRs.Close %>
Sección sin productos en estos momentos.
 

 

 
  <%= intRecordCount %> Registros encontrados. Se muestran <%= PAGE_SIZE %>. Página <%= intPageCurrent %> de <%= intPageCount %>  
<% if objRs("strImagen")<>"" then%> <%else%> <%end if%>
" width="120" height="120" border="0">

Imágen no disponible
<%= objRs("strNombreProducto_es") %>
 
Precio: <%= FormatNumber(objRs("curPrecio"),2) %> €     <% if Request.Cookies("cestaID") <> "" then strSQL = " SELECT * FROM tCestaItems WHERE ProductoID = " & objRs("ProductoID") & " AND CestaID = " & Request.Cookies("cestaID") objRs2.Open strSQL, objCn if not objRs2.eof then pedido = objRs2("intCantidad") Else pedido = "" End if objRs2.Close End if %>
','yes', '520', '300', '20', '20')" onMouseOver="window.status='© Tenfox'; return true" class="text"> Ver detalles
Comprar    Unidades >
<% '==============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 '=========================================================== %>