<% OpenDBPub DB sel="" aplicacion="" aplicacion = Request("aplicacions") If Trim(aplicacion)="" Then aplicacion=1 ref="" ref=Request("referencias") equ="" equ=Request("equiv") ordre="" ordre=Request("ordre") %>
<%menutop%>
    <%'/////Llistat de provincies%>
<% 'sqlAplic="SELECT DISTINCT Aplicaciones FROM productosOnline" sqlAplic="SELECT idMarca,Nombre FROM Marca ORDER by Nombre" OpenRS rsAplic, DB, sqlAplic If rsAplic.EOF then %> No hay datos <% else %> <% end if CloseRS rsAplic %>

Referencias: Equivalencias: Marcas:
 
  


Resultados de la búsqueda:

<% buscar=Request.QueryString("buscar") direccio=Request.QueryString("direccio") if buscar=1 then '//INICIALITZEM PARAMETRES ordena="referencia ASC" img1="" img2="" img3="" img4="" img5="" if direccio="ASC" then direc="DESC" imatge="./imagenes/fl_down2.GIF" else imatge="./imagenes/fl_up2.GIF" direc="ASC" end if if ordre=1 then ordena="referencia" img1="" end if if ordre=2 then ordena="aplicaciones" img2="" end if if ordre=3 then ordena="equiv" img3="" end if if ordre=4 then ordena="voltaje" img4="" end if if ordre=5 then ordena="amperios" img5="" end if '//FEM LA CERCA sqlCerca = "SELECT * FROM productosOnline where 1=1 " ' If (aplicacion)<>"" then ' sqlCerca = sqlCerca &" and aplicaciones='"&aplicacion &"' " ' End If If Cdbl(aplicacion)<>0 then sqlCerca = sqlCerca &" and idMarca="&aplicacion &" " End If If ref<>"" then sqlCerca = sqlCerca &" and referencia like '%"&ref &"%' " End If If equ<>"" then sqlCerca = sqlCerca &" and equiv like '%"&equ &"%' " End If if ordre<>"" then sqlCerca=sqlCerca& "ORDER BY "& ordena&" "&direccio else sqlCerca=sqlCerca& "ORDER BY referencia ASC" end if OpenRS rsCerca, DB, sqlCerca If rsCerca.EOF then %> Resultado de la búsqueda no encontrado <% else %> <% while not rsCerca.EOF idProducto = rsCerca("idProducto") referencia = rsCerca("referencia") nomAplicacio = rsCerca("aplicaciones") imgFrontal = rsCerca("imgFrontal") if not isNull(imgFrontal) then imgFrontal=Replace(imgFrontal,"../../"," ") imgLateral = rsCerca("imgLateral") if not isNull(imgLateral) then imgLateral=Replace(imgLateral,"../../"," ") voltaje = rsCerca("voltaje") amperios = rsCerca("amperios") equiv = rsCerca("equiv") if not isNull(equ) then equiv=Replace(equiv,equ,""& equ& "") end if if not isNull(referencia) then referencia=Replace(referencia,ref,""& ref& "") end if %> <% If not IsNull(trim(imgFrontal)) and trim(imgFrontal)<>"" Then%> <% else response.write "" end if If not IsNull(trim(imgLateral)) and trim(imgLateral)<>"" Then%> <% else response.write "" end if %> <% rsCerca.MoveNext wend %>
Referencia <%=img1%> Aplicacion <%=img2%> Vol <%=img4%> Amp. <%=img5%> Equiv <%=img3%> Imagen Frontal Imagen Lateral
 
<% = referencia %> <% = replace(nomAplicacio, ",","
") %>
<% = voltaje %> <% = amperios %> <% = replace(equiv, ",","
") %>
  
<% end if CloseRS rsCerca %> <%else %> No ha iniciado la búsqueda <%end if%>
<% CondicionsDus() %>
<%closeDB DB%>