<% ' Session("Idcliente")="000000" If IsArray(Session("tutorcart")) = false Then Dim tutorcart(99,3) Session("tutorcart") = tutorcart else tutorcart=Session("tutorcart") end if %> Principal | Comercial María <% tarifa=session("idtarifa") quien=request.QueryString("id_quien") articulo=Request.querystring("id_articulo") descripcion=Request.querystring("id_des") pagina=Request.querystring("paginaabsoluta") id_familia=Request.querystring("id_familia") referencia=Request.querystring("id_refere") pagcat=Request.querystring("id_pagina") id_grupo=Request.querystring("id_grupo") if request.QueryString("id_familia")="" and pagcat="" then id_familia="NOVEDAD" descripcion="PRODUCTOS NUEVOS" end if '********* familia (valor que lleva el grupo seleccionado ******************* %>

Familias

<% set rs1 = CreateObject("ADODB.Recordset") sqltxt="Select gp1, gp2 from grupos order by gp2" rs1.Open sqltxt, conn do while not rs1.EOF numero=numero+1 %>
<%if id_grupo=rs1("gp1") then %> <%else%> <%end if%> <% set rs2 = CreateObject("ADODB.Recordset") sqltxt="Select fm1, fm2 from familia where fm4='" & rs1("gp1") & "' order by fm1" %>
<% rs1.movenext loop rs1.close%>

Su pedido

<% '----------------------- saca la compra ----------------- total=0 encontra=false for i=0 to ubound(tutorcart) if tutorcart(i,0)<>"" or tutorcart(i,1)<>"" then sqltxt="select ar1, ar2 from articulos where ar1='"&tutorcart(i,0) & "'" set rs=conn.execute(sqltxt)%> <% if len(rs("ar2")) > 15 then concepto=left(rs("ar2"),15) & "..." else concepto=left(rs("ar2"),15) end if %>
<%=tutorcart(i,1)%>
 <%=concepto%>
<%=formatnumber(tutorcart(i,2),2)%>

<%total=total + (tutorcart(i,1)*tutorcart(i,2)) encontra=true end if next if not encontra then %>
Aún no hay artículos pedidos
<%end if%>

Total :   <%=formatnumber(total,2)%> €
<% Pag_Catalogo= request.querystring("id_familia") indice=0 set rs = CreateObject("ADODB.Recordset") if id_familia<>"" then sqltxt="Select ar1, ar2, ar3, ar4, ar5, ar6 from articulos where ar3 ='" &request.querystring("id_familia")& "' order by ar1 asc" end if if referencia<>"" then sqltxt="Select ar1, ar2, ar3, ar4, ar5, ar6 from articulos where ar2 like '%" &request.querystring("id_refere")& "%'" end if if id_familia="NOVEDAD" and referencia="" and pagcat="" then sqltxt="Select ar1, ar2, ar3, ar4, ar5, ar6 from articulos where ar5 ='X' order by ar1 asc" end if ' ---------------- buscar por concepto --------------------- rs.CursorType = 1 rs.LockType = 3 ' rs.open sqltxt,conn 'rs.pagesize=tpagina if rs.eof then ' else tabla=rs.getrows end if registros=rs.recordcount if rs.recordcount=0 then if id_familia<>"" and referencia="" then %>
No existen articulos para esta familia
<%end if if request.QueryString("id_refere")<>"" then %>
No existe la referencia buscada
<%end if else if descripcion>"" then %>

<%response.write ucase(descripcion)%>

<% end if if id_familia<>"" or request.QueryString("id_refere")<>"" or pagcat<>"" then paginaabsoluta=request.querystring("paginaabsoluta") ipag=paginaabsoluta if ipag="" then ipag=1 end if if id_familia>"" then iregsporpag=9 end if if pagcat>"" then iregsporpag=100 end if itotal=ubound(tabla,2)+1 indice_imagen=3 ipaginas=(itotal \ iRegsPorPag) if iTotal mod iRegsPorPag>0 then iPaginas=iPaginas + 1 end if if iPag<1 then iPag=1 end if 'if iPag>ipaginas then ' ' iPag=iPaginas 'end if iComienzo = (iPag-1)*iRegsPorPag iFin=iComienzo+(iRegsPorPag-1) if iFin > ubound(tabla,2) then iFin=ubound(tabla,2) end if if id_familia<>"" then %>
    <% if cint(ipag)>1 then anterior=int(ipag)-1%>
  • <%end if cuentaenlaces=0 if cint(ipag)>10 then inicio=cint(ipag)-5 else inicio=1 end if for i=inicio to ipaginas cuentaenlaces=cuentasenlaces+1 if cuentaenlaces>10 then exit for end if if i=cint(ipag) then %>
  • <%=i%>
  • <%else%>
  • <%=i%>
  • <%end if next%> <%if cint(ipag)
  • <%end if%>
<% end if '************************************** PINTAR LA TABLA ********************************* FOR i=iComienzo to iFin step 3 pvp1=0 pvp2=0 pvp3=0 if session("idcliente")>"" then refe=tabla(0,i) set rs3 = CreateObject("ADODB.Recordset") sqltxt="Select pre2, pre3, pre4 from precios where pre2 ='"& refe &"' and pre3 ='" & tarifa &"' order by pre2 asc" rs3.CursorType = 1 rs3.LockType = 3 rs3.open sqltxt,conn if rs3.eof then ' else pvp1=rs3("pre4") pvp1=round(pvp1,2) end if rs3.close set rs3=nothing '------------- 2º precio ----------- if i+1<=ubound(tabla,2) then refe=tabla(0,i+1) set rs3 = CreateObject("ADODB.Recordset") sqltxt="Select pre2, pre3, pre4 from precios where pre2 ='"& refe &"' and pre3 ='" & tarifa &"' order by pre2 asc" rs3.CursorType = 1 rs3.LockType = 3 rs3.open sqltxt,conn if rs3.eof then ' else pvp2=rs3("pre4") pvp2=round(pvp2,2) end if rs3.close set rs3=nothing end if '------------- 3º precio ----------- if i+2<=ubound(tabla,2) then refe=tabla(0,i+2) set rs3 = CreateObject("ADODB.Recordset") sqltxt="Select pre2, pre3, pre4 from precios where pre2 ='"& refe &"' and pre3 ='" & tarifa &"' order by pre2 asc" rs3.CursorType = 1 rs3.LockType = 3 rs3.open sqltxt,conn if rs3.eof then ' else pvp3=rs3("pre4") pvp3=round(pvp3,2) end if rs3.close set rs3=nothing end if end if ' 1º columna ------------------------------ %>
<%if tabla(4,i)="X" then %>
<%END IF%>

Ref. <% response.write tabla(0,i)%>

<% if len(tabla(1,i)) > 50 then concepto=left(tabla(1,i),50) & "..." else concepto = tabla(1,i) end if response.write concepto%>

<%if tabla(5,i)>"" then %>
Enlace al proveedor
<%else if session("idcliente")>"" then %>

<% response.write pvp1%> €

Uni.

<% end if end if %>
<% if i+1<=ubound(tabla,2) then%>
<%if tabla(4,i+1)="X" then %>
<%END IF%>

Ref. <% response.write tabla(0,i+1)%>

<% if len(tabla(1,i+1)) > 50 then concepto=left(tabla(1,i+1),50) & "..." else concepto = tabla(1,i+1) end if response.write concepto%>

<%if tabla(5,i+1)>"" then %>
Enlace al proveedor
<%else if session("idcliente")>"" then %>

<% response.write pvp2%> €

Uni.

<% end if end if %>
<%end if %> <% if i+2<=ubound(tabla,2) then%>
<%if tabla(4,i+2)="X" then %>
<%END IF%>

Ref. <% response.write tabla(0,i+2)%>

<% if len(tabla(1,i+2)) > 50 then concepto=left(tabla(1,i+2),50) & "..." else concepto = tabla(1,i+2) end if response.write concepto%>

<%if tabla(5,i+2)>"" then %>
Enlace al proveedor
<%else if session("idcliente")>"" then %>

<% response.write pvp3%> €

Uni.

<% end if end if %>
<%end if %> <%next '--------------------- fin pintar la tabla ---------------- %>

Encontrados <%=registros%> artículo(s)

<% if id_familia<>"" then %>

    <% if cint(ipag)>1 then anterior=int(ipag)-1%>
  • <%end if cuentaenlaces=0 if cint(ipag)>10 then inicio=cint(ipag)-5 else inicio=1 end if for i=inicio to ipaginas cuentaenlaces=cuentasenlaces+1 if cuentaenlaces>10 then exit for end if if i=cint(ipag) then %>
  • <%=i%>
  • <%else%>
  • <%=i%>
  • <%end if next%> <%if cint(ipag)
  • <%end if%>
<% end if%> <%end if%> <%end if%>