<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "dsn=torEvents;" Recordset1.Source = "SELECT * FROM Data ORDER BY StartDate ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Tennessee Off-Road

Events

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% If Recordset1.Fields.Item("StartDate").Value >= date() Then %> <% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Dates/Location Event Name/Description Contact Info
<%=(Recordset1.Fields.Item("StartDate").Value)%><% If Recordset1.Fields.Item("EndDate").Value <> "" Then %> - <%=(Recordset1.Fields.Item("EndDate").Value)%><% End If %> <%=(Recordset1.Fields.Item("EventName").Value)%> <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>" target="_blank">Website
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %><% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>">Email
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %><%=(Recordset1.Fields.Item("Phone").Value)%> <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %><% If Recordset1.EOF And Recordset1.BOF Then %> <% End If ' end Recordset1.EOF And Recordset1 %>
Location: <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %><%=(Recordset1.Fields.Item("Location").Value)%><% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
<%=(Recordset1.Fields.Item("City").Value)%><% If Recordset1.Fields.Item("State").Value <> "" Then %>, <%=(Recordset1.Fields.Item("State").Value)%><% End If %>
<% If Recordset1.Fields.Item("State").Value <> "" Then %><%=(Recordset1.Fields.Item("Description").Value)%><% End If %>     
 

 

©2000 Tennessee Off-Road