%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'variabile catena e dimensione session("finituraCatena") = request.Form("finituraCatena") 'response.Write session("tipologia") 'response.Write session("tipoCatena") 'response.Write session("dimensioneCartena") 'response.Write session("finituraCatena") dimensioneCatena = session("dimensioneCatena") macroTipo = session("macroTipo") %> <% Dim cursori Dim cursori_numRows Set cursori = Server.CreateObject("ADODB.Recordset") cursori.ActiveConnection = MM_goldengates_STRING cursori.Source = "SELECT * FROM cursori WHERE a" & dimensioneCatena & " = -1 AND " & macroTipo & " = -1 AND 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 a" & dimensioneCatena & " = -1 AND " & macroTipo & " = -1 AND 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 %>