Modificare il file:
\Backup 02-06-2024\home_noz.asp
<% 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 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Liste di Nozze - Martinucci regali e ...</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .Stile1 {font-family: verdana} .Stile2 {font-size: x-small} .Stile3 {font-family: verdana; font-size: x-small; } a:link { color: #000000; text-decoration: none; } a:visited { text-decoration: none; color: #000000; } a:hover { text-decoration: none; color: #000000; } a:active { text-decoration: none; color: #000000; } --> </style> </head> <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"> <div align="center"> <table height="285" border="0" align="left" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td height="266" valign="top"><span class="Stile3"><strong> <%if N_Lista_noz <> "" then%> </strong></span> <table width="501" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="599" height="19" bgcolor="#00CC00"><div align="center"> <span class="Stile3"><strong> <font face="Verdana"><font color="#0000FF">...:::</font><font color="#FF0000"> </font></font> </strong></span><b><font face="Verdana" size="2" color="#FFFFFF">Clicca sull'immagine per vedere l'articolo in dettaglio</font><font face="Verdana" size="2" color="#FF0000"> </font> <font color="#0000FF" face="Verdana" size="2">:::...</font></b></div></td> </tr> </table> <span class="Stile3"><strong> <%end if%> </strong></span> <table border="0"> <tr> <td> </td> </tr> </table> <%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 %> <table width="501" height="51" border="0" class="Stile3" cellspacing="0" cellpadding="0"> <tr> <td width="84" bgcolor="<%=col%>" style="border-left: 1px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; "><div align="center"><br> <a href="?az=prod&IDpr=<%=(Prodo_noz.Fields.Item("ID").Value)%>&fcampo=Marca&fcosa=<%=N_lista_noz%>"><img src="<%=fotina%>" alt="" width="70" height="50" border="0"></a><br> <b> <%=art_prezzo%></b><br> </div></td> <td width="6" bgcolor="<%=col%>" style="border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; "><div align="left"> <br> </div></td> <td width="411" valign="top" bgcolor="<%=col%>" style="border-right: 1px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; "><div align="left"> <a href="?az=prod&IDpr=<%=(Prodo_noz.Fields.Item("ID").Value)%>&fcampo=Marca&fcosa=&N_lista_noz"><b><%=Prodo_noz("Nome")%></b><br> <br><%=descpro%></a></div></td> </tr> </table> <% Repeat3__index_noz=Repeat3__index_noz+1 Repeat3__numRows_noz=Repeat3__numRows_noz-1 Prodo_noz.MoveNext() Wend %> <table width="501" border="0" cellpadding="0" cellspacing="0" style="border-left: 0px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; "> <tr> <td> </td> </tr> </table> <div align="center"> <% If numero_riga = 0 then %> <font face="Verdana" size="5"><b><font color="#FF0000">La Lista è stata completata</font></b><br> </font> <img border="0" src="images/nozze1.jpg" width="400" height="400"> <%end if%> <%end if%> </div></td></tr> </table> </div> </body> </html> <%if N_lista_noz <> "" then end if%>
[
Íàçàä
]