<% Set marca_noz = Server.CreateObject("ADODB.Recordset") marca_noz.ActiveConnection = MM_ecommerce_STRING_noz marca_noz.Source = "SELECT DISTINCT Marca FROM Prodotti" marca_noz.CursorType = 0 marca_noz.CursorLocation = 2 marca_noz.LockType = 1 marca_noz.Open() marca_numRows_noz = 0 %> <% '************************************************** if N_lista_noz <> "" then Set Prodo_noz = Server.CreateObject("ADODB.Recordset") Prodo_noz.ActiveConnection = MM_ecommerce_STRING_noz Prodo_noz.Source = "SELECT * FROM Prodotti WHERE Marca = '"&N_Lista_noz&"' AND Dispo = 'Y'" Prodo_noz.CursorType = 0 Prodo_noz.CursorLocation = 2 Prodo_noz.LockType = 1 Prodo_noz.Open() Prodo_numRows_noz = 0 END IF '*************************************************************** %> <% Repeat1__numRows_noz = -1 Repeat1__index_noz = 0 marca_numRows_noz = marca_numRows_noz + Repeat1__numRows_noz %> <% Repeat3__numRows_noz = -1 Repeat3__index_noz = 0 Prodo_numRows_noz = Prodo_numRows_noz + Repeat3__numRows_noz %> Liste di Nozze - Martinucci regali e ...
<%if N_Lista_noz <> "" then%>
 ...::: Clicca sull'immagine per vedere l'articolo in dettaglio :::...
<%end if%>
 
<%if N_lista_noz <> "" then%> <% numero_riga = 0 While ((Repeat3__numRows_noz <> 0) AND (NOT Prodo_noz.EOF)) %> <% numero_riga = numero_riga+1 ci=(Prodo_noz.Fields.Item("Foto").Value) if ci <> "" then fotina="Admin_noz/ImagesProd_noz/"&(Prodo_noz.Fields.Item("Foto").Value) else fotina="Admin_noz/ImagesProd_noz/nd.jpg" end if descpro=mid((Prodo_noz.Fields.Item("Descrizione").Value),1,300)&"....." art_prezzo = FormatCurrency((Prodo_noz.Fields.Item("Prezzo").Value),2)&" " %><% If (Repeat3__numRows_noz Mod 2) Then col="#clfebc" col2="#79fd7b" Else col="#ccfed2" col2="#79fd7b" End IF %>

<% Repeat3__index_noz=Repeat3__index_noz+1 Repeat3__numRows_noz=Repeat3__numRows_noz-1 Prodo_noz.MoveNext() Wend %>
 
<% If numero_riga = 0 then %> La Lista è stata completata
 <%end if%> <%end if%>
<%if N_lista_noz <> "" then end if%>