Golden Gates S.r.l. - Chiusure lampo, nastri a strappo, filati cucirini, nastri elastici, minuterie metalliche, minuterie plastiche, tessuti...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim tipi Dim tipi_numRows Set tipi = Server.CreateObject("ADODB.Recordset") tipi.ActiveConnection = MM_goldengates_STRING tipi.Source = "SELECT DISTINCT categoria FROM minuterie" tipi.CursorType = 0 tipi.CursorLocation = 2 tipi.LockType = 1 tipi.Open() tipi_numRows = 0 %> <% Dim elenco__MMColParam elenco__MMColParam = "1" If (Request.QueryString("tipo") <> "") Then elenco__MMColParam = Request.QueryString("tipo") End If %> <% Dim elenco Dim elenco_numRows Set elenco = Server.CreateObject("ADODB.Recordset") elenco.ActiveConnection = MM_goldengates_STRING elenco.Source = "SELECT * FROM minuterie WHERE categoria = '" + Replace(elenco__MMColParam, "'", "''") + "'" elenco.CursorType = 0 elenco.CursorLocation = 2 elenco.LockType = 1 elenco.Open() elenco_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 tipi_numRows = tipi_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 elenco_numRows = elenco_numRows + HLooper1__numRows %> Golden Gates S.r.l. - Chiusure lampo, nastri a strappo, filati cucirini, nastri elastici, minuterie metalliche, minuterie plastiche, tessuti...

<%=(elenco.Fields.Item("categoria").Value)%>

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not elenco.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not elenco.EOF)) %> <% startrw = startrw + 1 elenco.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" target="_blank">" width="100" border="0">
<%=(elenco.Fields.Item("nome").Value)%>

Torna a Minuterie plastiche

Minuterie plastiche

<% While ((Repeat1__numRows <> 0) AND (NOT tipi.EOF)) %>

"> <%=(tipi.Fields.Item("categoria").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 tipi.MoveNext() Wend %>

<% tipi.Close() Set tipi = Nothing %> <% elenco.Close() Set elenco = Nothing %>