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