<% response.expires=0 dim familias(100,3) numerofamilias=1 articulo="" id=691 procede=request.form("procede") ' ***** MONTAR DESPLIEGE FAQMILIAS ***** if procede=2 then idfamilia=request.form("idfamilia") sql="SELECT familias.idfamilia, familias.idasociado, familias.fdescripcion, familias.orden FROM familias WHERE (((familias.idasociado)=" & id &"))" set conectar=Server.CreateObject("ADODB.Connection") conectar.ConnectionString="DSN=scrin.com.amer" conectar.Open Set base=Server.CreateObject("ADODB.RECORDSET") base.ActiveConnection=conectar base.Source=sql base.cursortype=2 base.lockType=3 base.open do while not base.eof a=base("idfamilia") b=idfamilia if (a-b)=0 then botonfamilias=botonfamilias & "" else botonfamilias=botonfamilias & "" end if base.movenext loop if procede=2 then idfamilia=request.form("idfamilia"):sql="SELECT familias.idfamilia, familias.idasociado, familias.fdescripcion, familias.orden FROM familias WHERE (((familias.idasociado)=" & id &") and (familias.idfamilia="& idfamilia &" or 0="& idfamilia &"))" if procede=3 then articulo=request.form("articulo"):sql="SELECT articulos.*, articulos.idasociado, articulos.adescripcion, familias.idfamilia, familias.fdescripcion, familias.orden FROM articulos INNER JOIN familias ON articulos.idfamilia = familias.idfamilia WHERE (((articulos.idasociado)=" & id & ") AND ((articulos.adescripcion)LIKE '%" & articulo & "%'))" ' ****** LEER FAMILIAS ****** base.close Set base=Server.CreateObject("ADODB.RECORDSET") base.ActiveConnection=conectar base.Source=sql base.cursortype=2 base.lockType=3 base.open do while not base.eof if familias(numerofamilias-1,1)<>base("idfamilia") then familias(numerofamilias,1)=base("idfamilia") familias(numerofamilias,2)=base("fdescripcion") familias(numerofamilias,3)=base("orden") numerofamilias=numerofamilias+1 end if base.movenext loop numerofamilias=numerofamilias-1 ' ***** FIN LEER FAMILIAS ***** ' ***** ordenar familias ***** for n=1 to numerofamilias-1 for m=n+1 to numerofamilias if familias(n,3)>familias(m, 3) then x=familias(n,1) y=familias(n,2) z=familias(n,3) familias(n,1)=familias(m,1) familias(n,2)=familias(m,2) familias(n,3)=familias(m,3) familias(m,1)=x familias(m,2)=y familias(m,3)=z end if next next %> Algunos de nuestros productos.

Familias

Búsqueda por palabras

Buscador de Artículos
<% ' ***** MONTAR RESULTADOS ***** if numerofamilias>0 then for n=1 to numerofamilias SQL="SELECT articulos.*, articulos.idfamilia, articulos.idasociado FROM articulos WHERE (((articulos.idfamilia)=" & familias(n,1) & ") AND ((articulos.idasociado)=" & id & "))" if procede=3 then sql="SELECT articulos.*, articulos.idfamilia, articulos.idasociado, articulos.adescripcion FROM articulos WHERE (((articulos.idfamilia)=" & familias(n,1) & ") AND ((articulos.idasociado)="& id &") AND ((articulos.adescripcion)LIKE '%" & articulo & "%'))" end if base.close Set base=Server.CreateObject("ADODB.RECORDSET") base.ActiveConnection=conectar base.Source=sql base.cursortype=2 base.lockType=3 base.open if not base.eof then ' ***** CABECERA DE FAMILIA ***** %>
<% =familias(n,2) %>
<% ' **** CUERPO DE ARTICULOS **** do while not base.eof %> <% ' **** CIERRE DE FAMILIA **** base.movenext loop %>
<% =base("adescripcion") %>

<% if base("pvp")>0 then %><% =base("pvp") %> Pts<% end if %>

<% if base("pvp")>0 then %><% =(int((base("pvp") / 166.386)*100)/100) %> €<% end if %>
<% end if next end if base.close conectar.close %>

PEDIDOS
[Página Principal] - [Los Puestos] -  [Hacer la compra] - [Comunicados] - [Instalaciones] - [Situación]