%@LANGUAGE="VBSCRIPT"%> <% Dim RS_stadio__MMColParam RS_stadio__MMColParam = "HC Alleghe" If (Request("MM_EmptyValue") <> "") Then RS_stadio__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RS_stadio Dim RS_stadio_numRows Set RS_stadio = Server.CreateObject("ADODB.Recordset") RS_stadio.ActiveConnection = MM_alleghe_STRING RS_stadio.Source = "SELECT giornata, data_partita, ospiti, spettatori FROM giornate WHERE casa = '" + Replace(RS_stadio__MMColParam, "'", "''") + "'" RS_stadio.CursorType = 0 RS_stadio.CursorLocation = 2 RS_stadio.LockType = 1 RS_stadio.Open() RS_stadio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_stadio_numRows = RS_stadio_numRows + Repeat1__numRows %>