<% Set marca = Server.CreateObject("ADODB.Recordset") marca.ActiveConnection = MM_ecommerce_STRING marca.Source = "SELECT DISTINCT Marca FROM Prodotti ORDER BY marca ASC" marca.CursorType = 0 marca.CursorLocation = 2 marca.LockType = 1 marca.Open() marca_numRows = 0 %> <% '************************************************** if N_lista <> "" then Set Prodo = Server.CreateObject("ADODB.Recordset") Prodo.ActiveConnection = MM_ecommerce_STRING Prodo.Source = "SELECT * FROM Prodotti WHERE Marca = '"&N_Lista&"' AND Dispo = 'Y'" 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 %> <% Repeat3__numRows = -1 Repeat3__index = 0 Prodo_numRows = Prodo_numRows + Repeat3__numRows %> Liste di Nascite - Martinucci regali e ...
<%if N_Lista <> "" then%>
 ...::: Clicca sull'immagine per vedere l'articolo in dettaglio :::...
<%end if%>
 
<%if N_lista <> "" then%> <% numero_riga = 0 While ((Repeat3__numRows <> 0) AND (NOT Prodo.EOF)) %> <% numero_riga = numero_riga+1 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)&"....." art_prezzo = FormatCurrency((Prodo.Fields.Item("Prezzo").Value),2)&" " %><% 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 %>
 
<% If numero_riga = 0 then %> La Lista è stata completata
 <%end if%> <%end if%>