%@LANGUAGE="VBSCRIPT"%> <% Dim SportEvents Dim SportEvents_numRows Set SportEvents = Server.CreateObject("ADODB.Recordset") SportEvents.ActiveConnection = MM_CoahomaDB_STRING SportEvents.Source = "SELECT * FROM UpcomingSports ORDER BY BSBDate ASC" SportEvents.CursorType = 0 SportEvents.CursorLocation = 2 SportEvents.LockType = 1 SportEvents.Open() SportEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 SportEvents_numRows = SportEvents_numRows + Repeat1__numRows %>
|
|
|||||||||||||||
Coahoma Community College Athletic Department |
||||||||||||||||
<% SportEvents.Close() Set SportEvents = Nothing %>