%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim ListaTop__MMColParam ListaTop__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then ListaTop__MMColParam = Request("MM_EmptyValue") End If %> <% Dim ListaTop Dim ListaTop_cmd Dim ListaTop_numRows Set ListaTop_cmd = Server.CreateObject ("ADODB.Command") ListaTop_cmd.ActiveConnection = MM_GalepinPortal_STRING ListaTop_cmd.CommandText = "SELECT * FROM links WHERE xeloTop = ?" ListaTop_cmd.Prepared = true ListaTop_cmd.Parameters.Append ListaTop_cmd.CreateParameter("param1", 11, 1, -1, ListaTop__MMColParam) ' adBoolean Set ListaTop = ListaTop_cmd.Execute ListaTop_numRows = 0 %> <% Dim menu_insima__MMColParam menu_insima__MMColParam = "insima" If (Request("MM_EmptyValue") <> "") Then menu_insima__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_insima Dim menu_insima_cmd Dim menu_insima_numRows Set menu_insima_cmd = Server.CreateObject ("ADODB.Command") menu_insima_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_insima_cmd.CommandText = "SELECT * FROM menus WHERE grupo = ? ORDER BY ranking ASC" menu_insima_cmd.Prepared = true menu_insima_cmd.Parameters.Append menu_insima_cmd.CreateParameter("param1", 200, 1, 255, menu_insima__MMColParam) ' adVarChar Set menu_insima = menu_insima_cmd.Execute menu_insima_numRows = 0 %> <% Dim menu_nostri__MMColParam menu_nostri__MMColParam = "nostri" If (Request("MM_EmptyValue") <> "") Then menu_nostri__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_nostri Dim menu_nostri_cmd Dim menu_nostri_numRows Set menu_nostri_cmd = Server.CreateObject ("ADODB.Command") menu_nostri_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_nostri_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_nostri_cmd.Prepared = true menu_nostri_cmd.Parameters.Append menu_nostri_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_nostri__MMColParam + "%") ' adVarChar Set menu_nostri = menu_nostri_cmd.Execute menu_nostri_numRows = 0 %> <% Dim menu_hot__MMColParam menu_hot__MMColParam = "hot" If (Request("MM_EmptyValue") <> "") Then menu_hot__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_hot Dim menu_hot_cmd Dim menu_hot_numRows Set menu_hot_cmd = Server.CreateObject ("ADODB.Command") menu_hot_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_hot_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_hot_cmd.Prepared = true menu_hot_cmd.Parameters.Append menu_hot_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_hot__MMColParam + "%") ' adVarChar Set menu_hot = menu_hot_cmd.Execute menu_hot_numRows = 0 %> <% Dim menu_altro__MMColParam menu_altro__MMColParam = "altro" If (Request("MM_EmptyValue") <> "") Then menu_altro__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_altro Dim menu_altro_cmd Dim menu_altro_numRows Set menu_altro_cmd = Server.CreateObject ("ADODB.Command") menu_altro_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_altro_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_altro_cmd.Prepared = true menu_altro_cmd.Parameters.Append menu_altro_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_altro__MMColParam + "%") ' adVarChar Set menu_altro = menu_altro_cmd.Execute menu_altro_numRows = 0 %> <% Dim Lista_xone Dim Lista_xone_cmd Dim Lista_xone_numRows Set Lista_xone_cmd = Server.CreateObject ("ADODB.Command") Lista_xone_cmd.ActiveConnection = MM_GalepinPortal_STRING Lista_xone_cmd.CommandText = "SELECT * FROM Arie ORDER BY area ASC" Lista_xone_cmd.Prepared = true Set Lista_xone = Lista_xone_cmd.Execute Lista_xone_numRows = 0 %> <% Dim Lista_argomenti Dim Lista_argomenti_cmd Dim Lista_argomenti_numRows Set Lista_argomenti_cmd = Server.CreateObject ("ADODB.Command") Lista_argomenti_cmd.ActiveConnection = MM_GalepinPortal_STRING Lista_argomenti_cmd.CommandText = "SELECT * FROM Argomenti ORDER BY argomento ASC" Lista_argomenti_cmd.Prepared = true Set Lista_argomenti = Lista_argomenti_cmd.Execute Lista_argomenti_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 menu_nostri_numRows = menu_nostri_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 menu_hot_numRows = menu_hot_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 menu_altro_numRows = menu_altro_numRows + Repeat5__numRows %> <% Dim HLooper2__numRows HLooper2__numRows = -8 Dim HLooper2__index HLooper2__index = 0 Lista_argomenti_numRows = Lista_argomenti_numRows + HLooper2__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -8 Dim HLooper1__index HLooper1__index = 0 Lista_xone_numRows = Lista_xone_numRows + HLooper1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 menu_insima_numRows = menu_insima_numRows + Repeat2__numRows %>
|