% Dim prodotti__MMColParam prodotti__MMColParam = "1" If (Request.QueryString("IDpr") <> "") Then prodotti__MMColParam = Request.QueryString("IDpr") End If %> <% Dim prodotti Dim prodotti_numRows Set prodotti = Server.CreateObject("ADODB.Recordset") prodotti.ActiveConnection = MM_ecommerce_STRING prodotti.Source = "SELECT * FROM Prodotti WHERE ID = " + Replace(prodotti__MMColParam, "'", "''") + "" prodotti.CursorType = 0 prodotti.CursorLocation = 2 prodotti.LockType = 1 prodotti.Open() prodotti_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 %> <% 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 %> <% Repeat1__numRows = 10 Repeat1__index = 0 prodotti_numRows = prodotti_numRows + Repeat1__numRows %> <% Repeat2__numRows = -1 Repeat2__index = 0 Tipo_numRows = Tipo_numRows + Repeat2__numRows %>
Lista
Articoli -> Articoli in Dettaglio |
|||||||||||||||||||
<%
ci=(prodotti.Fields.Item("Foto").Value)
if ci <> "" then
fotina="Admin/ImagesProd/"&(prodotti.Fields.Item("Foto").Value)
else
fotina="Admin/ImagesProd/nd.jpg"
end if
%>
|