%@LANGUAGE="VBSCRIPT"%> <% Dim rsregatemumm__varclasse rsregatemumm__varclasse = "Mumm 30" If (Request("MM_EmptyValue") <> "") Then rsregatemumm__varclasse = Request("MM_EmptyValue") End If %> <% Dim rsregatemumm Dim rsregatemumm_numRows Set rsregatemumm = Server.CreateObject("ADODB.Recordset") rsregatemumm.ActiveConnection = MM_magicsailingteam_STRING rsregatemumm.Source = "SELECT * FROM Regate_successive WHERE classe LIKE '" + Replace(rsregatemumm__varclasse, "'", "''") + "' ORDER BY data_dal ASC" rsregatemumm.CursorType = 0 rsregatemumm.CursorLocation = 2 rsregatemumm.LockType = 1 rsregatemumm.Open() rsregatemumm_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsregatemumm_numRows = rsregatemumm_numRows + Repeat1__numRows %>
| "Copyright 2004 Allsoft - Magic Sailing Team - All rights reserved" |
||