%@LANGUAGE="VBSCRIPT"%> <% Dim RsEvents Dim RsEvents_numRows Set RsEvents = Server.CreateObject("ADODB.Recordset") RsEvents.ActiveConnection = MM_Events_STRING RsEvents.Source = "SELECT * FROM Events Where Calendar='VUSA' ORDER BY EventDate DESC" RsEvents.CursorType = 0 RsEvents.CursorLocation = 2 RsEvents.LockType = 1 RsEvents.Open() RsEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RsEvents_numRows = RsEvents_numRows + Repeat1__numRows %>
|
Calendar Of Events - USA
|
Home | Contact | Calendar | Video | Gallery | Interviews | Biography | Downloads | Links | Sponsors | Gear | Merchandise | Portuguese Copyright © 2007 Vernon Neilly. All rights reserved. |