<% '========================================================================== '========================================================================== ' 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_categorias2, Nombre_cat, Descr_cat, Foto1, Habilitar_cat FROM categorias2 WHERE Habilitar_cat = 1 AND Id_categorias2 = "&Id&" ORDER BY Nombre_cat" GetData sql,categorias,str_ppal Desc = categorias(2,2) Tit = categorias(1,2) %>
  <%= Tit %>
   
<% SQL = "SELECT Id_rubros2, cat_rub, nombre_rub, precio, foto1, descr, pdf1, habilitar_rub FROM rubros2 WHERE cat_rub = "&Id&" AND habilitar_rub = 1 ORDER BY nombre_rub " GetData sql,Rubros,str_ppal totreg = Ubound(Rubros, 2) - 1 maxind = totreg '---------------------------------------------- ' publico los resultados obtenidos en la query if totreg > 0 then i=minind+1 'si hay registros los muestro do while 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) descr = Rubros(5,i+1) pdf1 = Rubros(6,i+1) %> <% i=i+1 loop end if '================================================== %>
<%=Desc%>
 
">
   <%=Nombre%>
<%=descr%>  
<% ' session("Logged_DM") = 1 'ME LOGGEO PARA TESTEAR If Session("Logged_DM") = 1 then if not (IsNull(pdf1) OR IsEmpty(pdf1) OR pdf1 = "") then %> <% else %> <% end if %> <% else 'NO ESTOY LOGGEADO if not (IsNull(pdf1) OR IsEmpty(pdf1) OR pdf1 = "") then %> <% else %> <% end if %> <% end if %>
Manual    Manual   <% If precio="0" Then 'response.write "Consultar precio" else %>$<%=formatnumber(precio,2)%><%End if%>