<%@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 %> Vernon Neilly

Calendar Of Events - USA

 

<% While ((Repeat1__numRows <> 0) AND (NOT RsEvents.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsEvents.MoveNext() Wend %>
<%=(RsEvents.Fields.Item("EventDate").Value)%>
<%=(RsEvents.Fields.Item("EventTime").Value)%>
 <%=(RsEvents.Fields.Item("EventTitle").Value)%>
<%=(RsEvents.Fields.Item("EventDesc").Value)%>
<%=(RsEvents.Fields.Item("Fee").Value)%>		 <%=(RsEvents.Fields.Item("Venue").Value)%>
<%=(RsEvents.Fields.Item("Address").Value)%>
<%=(RsEvents.Fields.Item("Address2").Value)%>
<%=(RsEvents.Fields.Item("Address3").Value)%>

 

 

Home | Contact | Calendar | Video | Gallery | Interviews | Biography | Downloads | Links | Sponsors | Gear | Merchandise | Portuguese

Copyright © 2007 Vernon Neilly. All rights reserved.

<% RsEvents.Close() Set RsEvents = Nothing %>