<% '========================================================================== '========================================================================== ' actualizamos número de pagina If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If pagina= session("pagina") '========================================================================== '========================================================================== ' OBTENGO EL ID SELECCIONADO id = request.QueryString("id") '========================================================================== '========================================================================== %> Dismaser Vending Machines
  Dismaser Maquinas Expendedoras de bebidas, snacks y alimentos, agua caliente,cafe,expendedora cafe,expendedora de cafe, expendedoras, expendedoras de agua, filtros de agua, maquina expendedora, maquinas de cafe, maquinas expendedoras, maquinas expendedoras cafe, purificador de agua, purificadores de agua, snack, vending, agua fria Login Contacto  
        QUIENES SOMOS
        SERVICIOS DE
        EXPENDEDORAS
        COFFE SERVICE
        DISPENSER DE AGUA
        EVENTOS
        VENDING DE INSUMOS
        VENTA DE MAQUINAS
        EXPENDEDORAS
        GARANTIA DE CALIDAD
        INFORMACION UTIL
        CONTACTENOS
  (011) 4555-0151

  LOGIN:
 
USUARIO:
CONTRASEÑA:
Terminos y condiciones
 
COPYRIGHT © 2007
DISMASER. Vending Machines.


Diseño Web www.sieteflores.com.ar
 
<% SQL = "SELECT Id_categorias, Nombre_cat, Descr_cat, Foto1, Habilitar_cat FROM categorias WHERE Habilitar_cat = 1 AND Id_categorias = "&Id&" ORDER BY Nombre_cat" GetData sql,categorias,str_ppal Desc = categorias(2,2) Tit = categorias(1,2) %>
  <%= Tit %>
<% '================================================================== '============================ Paginador =========================== cant_paginas=round((totreg/rpp),2) if totreg mod rpp > 0 then paginita=int(cant_paginas)+1 else paginita=int(cant_paginas) end if if paginita = 0 then total_pags = 1 else total_pags = paginita end if %>
   
<%=Desc%>
<% SQL = "SELECT Id_rubros, cat_rub, nombre_rub, precio, foto1, habilitar_rub FROM rubros WHERE cat_rub = "&Id&" AND habilitar_rub = 1 ORDER BY nombre_rub " GetData sql,Rubros,str_ppal totreg = Ubound(Rubros, 2) - 1 '---------------------------------------------- ' Seteo datos a mostrar rpp = 6 'REGISTROS POR PÁGINA rpf = 3 'REGISTROS POR FILA maxind = (pagina*rpp) minind = ((pagina-1)*rpp) if maxind > totreg then maxind = totreg end if '---------------------------------------------- ' publico los resultados obtenidos en la query if totreg > 0 then i=minind+1 'si hay registros los muestro do while i < maxind+1 j=1 %> <% loop end if '================================================== %>
<% do while j < rpf + 1 and i < maxind+1 Id_prod = Rubros(0,i+1) categoria = Rubros(1,i+1) nombre = Rubros(2,i+1) precio = Rubros(3,i+1) foto1 = Rubros(4,i+1) %> <% j=j+1 i=i+1 loop %> <% '--------------------------------- ' COMPLETO CON TABLAS EN BLANCO do while j < rpf + 1 %> <% j=j+1 loop 'FIN COMPLETO CON TABLAS EN BLANCO '--------------------------------- %>
" width="100" height="100">

<%=nombre%>
$<%=precio%>
 
<% if pagina<>1 then %> <% else %> <% end if %> <% if not (int(pagina) = int(total_pags)) then %> <% else %> <% end if %>
<%=pagina%> / <%=total_pags%> paginas   SIGUIENTE  ULTIMA