%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cursori
Dim cursori_numRows
Set cursori = Server.CreateObject("ADODB.Recordset")
cursori.ActiveConnection = MM_goldengates_STRING
cursori.Source = "SELECT * FROM cursori WHERE plastica = 0 ORDER BY nome ASC"
cursori.CursorType = 0
cursori.CursorLocation = 2
cursori.LockType = 1
cursori.Open()
cursori_numRows = 0
%>
<%
Dim tiretti
Dim tiretti_numRows
Set tiretti = Server.CreateObject("ADODB.Recordset")
tiretti.ActiveConnection = MM_goldengates_STRING
tiretti.Source = "SELECT * FROM cursori WHERE plastica = -1 ORDER BY nome ASC"
tiretti.CursorType = 0
tiretti.CursorLocation = 2
tiretti.LockType = 1
tiretti.Open()
tiretti_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -7
Dim HLooper1__index
HLooper1__index = 0
cursori_numRows = cursori_numRows + HLooper1__numRows
%>
<%
Dim HLooper2__numRows
HLooper2__numRows = -7
Dim HLooper2__index
HLooper2__index = 0
tiretti_numRows = tiretti_numRows + HLooper2__numRows
%>
Golden Gates S.r.l. - Chiusure lampo, nastri a strappo, filati cucirini, nastri elastici, minuterie metalliche, minuterie plastiche, tessuti...
|
|
|
|
|
Chiusure lampo: Cursori
Disponiamo di un'ampia gamma di cursori metallici (personalizzabili
con diverse galvaniche) e tiretti in gomma.
Cursori in metallo
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 7
numrows = -1
while((numrows <> 0) AND (Not cursori.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<%
While ((startrw <= endrw) AND (Not cursori.EOF))
%>
" height="100"> |
Tipo <%=(cursori.Fields.Item("nome").Value)%>
|
|
|
<%
startrw = startrw + 1
cursori.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
Finiture
galvaniche per cursori in metallo
Se non specificata nell'ordine la galvanica del cursore
è uguale a quella della catena.
Nickel
antico opaco
|
Nickel
antico
|
Nickel
|
Ottone
|
Ottone
antico
|
Ottone
brunito
|
Rame
|
|
|
Tiretti in gomma
<%
startrw = 0
endrw = HLooper2__index
numberColumns = 7
numrows = -1
while((numrows <> 0) AND (Not tiretti.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<%
While ((startrw <= endrw) AND (Not tiretti.EOF))
%>
" height="100"> |
Tipo <%=(tiretti.Fields.Item("nome").Value)%>
|
|
|
<%
startrw = startrw + 1
tiretti.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
Torna a Chiusure lampo |
|
|
<%
cursori.Close()
Set cursori = Nothing
%>
<%
tiretti.Close()
Set tiretti = Nothing
%>