<% Set marca = Server.CreateObject("ADODB.Recordset") marca.ActiveConnection = MM_ecommerce_STRING marca.Source = "SELECT DISTINCT Marca FROM Prodotti" marca.CursorType = 0 marca.CursorLocation = 2 marca.LockType = 1 marca.Open() marca_numRows = 0 %> <% Set Tipo = Server.CreateObject("ADODB.Recordset") Tipo.ActiveConnection = MM_ecommerce_STRING Tipo.Source = "SELECT DISTINCT Classe FROM Prodotti" Tipo.CursorType = 0 Tipo.CursorLocation = 2 Tipo.LockType = 1 Tipo.Open() Tipo_numRows = 0 %> <% if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then Set Prodo = Server.CreateObject("ADODB.Recordset") Prodo.ActiveConnection = MM_ecommerce_STRING 'Prodo.Source = "SELECT * FROM Prodotti WHERE Dispo = 'Y' AND "&Request.QueryString("fcampo")&"='"&Request.QueryString("fcosa")&"'" Prodo.Source = "SELECT * FROM Prodotti WHERE Dispo = 'Y' AND lista = '&elenco'" Prodo.CursorType = 0 Prodo.CursorLocation = 2 Prodo.LockType = 1 Prodo.Open() Prodo_numRows = 0 end if %> <% Repeat1__numRows = -1 Repeat1__index = 0 marca_numRows = marca_numRows + Repeat1__numRows %> <% Repeat2__numRows = -1 Repeat2__index = 0 Tipo_numRows = Tipo_numRows + Repeat2__numRows %> <% Repeat3__numRows = -1 Repeat3__index = 0 Prodo_numRows = Prodo_numRows + Repeat3__numRows %> Liste di Nascite - Martinucci regali e ...
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then%>
Lista Articoli  
<%end if%>
  
 
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then%> <% While ((Repeat3__numRows <> 0) AND (NOT Prodo.EOF)) %> <% ci=(Prodo.Fields.Item("Foto").Value) if ci <> "" then fotina="Admin/ImagesProd/"&(Prodo.Fields.Item("Foto").Value) else fotina="Admin/ImagesProd/nd.jpg" end if descpro=mid((Prodo.Fields.Item("Descrizione").Value),1,300)&"....." %><% If (Repeat3__numRows Mod 2) Then col="#f0f0f0" col2="#c0c0c0" Else col="#e5e5e5" col2="#c0c0c0" End IF %>

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Prodo.MoveNext() Wend %>
 
<%else%>


<%end if%>
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then end if%>