<%@ LANGUAGE="VBScript" %> <% '' Dim thisMONTH, dateFROM, dateTO thisMONTH = Month(Now()) thisYEAR = Year(Now()) thisDAY = Day(Now()) If Not Request.QueryString("month") = "" Then thisMONTH = Request.QueryString("month") thisDAY = 1 End If If Not Request.QueryString("year") = "" Then thisYEAR = Request.QueryString("year") If Not Request.QueryString("day") = "" Then thisDAY = Request.QueryString("day") Dim currentEDAY, thisEVENTDISPLAY currentEDAY = DateDiff( "d", "01/01/" & Year(Now()), Date() ) + 1 If isempty( thisDAY ) Then 'set default dates' dateFROM = thisMONTH & "/01/" & thisYEAR ''dateTO = DateAdd( "yyyy", 1, Date() ) lastDay = 31 dateTO = thisMONTH & "/" & lastDay & "/" & thisYEAR While not isDate( dateTO ) lastDay = lastDay - 1 dateTO = thisMONTH & "/" & lastDay & "/" & thisYEAR Wend Else dateFROM = thisMONTH & "/" & thisDAY & "/" & thisYEAR dateTO = DateAdd( "d", 8, dateFROM ) If not isdate( dateTO ) Then nextMONTH = thisMONTH + 1 nextYEAR = thisYEAR If nextMONTH > 12 Then nextMONTH = 1 nextYEAR = thisYEAR + 1 End If dateTO = nextMONTH & "/1/" & nextYEAR End If End If ''response.write "raa_contentevent 0, 0, 0, '" & dateFROM & "','" & dateTO & "'" ''response.end 'get event details' 'raa_contentevent catid, sid, trackid, datefrom, dateto' Dim adoLIST Set adoLIST = ExecuteSP( dbVirtualThunder, "raa_contentevent 0, 0, 0, '" & dateFROM & "','" & dateTO & "'" ) 'create month list' monthList = createMonthList( thisMONTH ) If Month( dateFROM ) = Month( dateTO ) Then dateDISPLAY = MonthName( Month( dateFROM ) ) & " " & Day( dateFROM ) & " - " & Day( dateTO ) & ", " & Year( dateFROM ) Else If Year( dateFROM ) = Year( dateTO ) Then dateDISPLAY = MonthName( Month( dateFROM ) ) & " " & Day( dateFROM ) & " to " & MonthName( Month( dateTO ) ) & " " & Day( dateTO ) & ", " & Year( dateFROM ) Else dateDISPLAY = MonthName( Month( dateFROM ) ) & " " & Day( dateFROM ) & ", " & Year( dateFROM ) & " to " & MonthName( Month( dateTO ) ) & " " & Day( dateTO ) & ", " & Year( dateTO ) End If End If thisEVENTDISPLAY = "Events between " & dateDISPLAY pageID = "EVENTLIST" %> Racing Around America: <%=thisEVENTDISPLAY%>
<%=thisEVENTDISPLAY%> <%=currentDATE%>
<%=monthList%>

<% Else %> <% End If Else ''lastSPEEDWAY = empty If not isempty( lastDATE ) Then %>
click speedway, series or state for more details <% If adoLIST.EOF Then %>
No events currently scheduled
between <%=dateDISPLAY%>.
<% Else Dim catID, seriesID, itemCT, lastDATE, lastSPEEDWAY lastDATE = empty lastSPEEDWAY = empty While not adoLIST.EOF catID = adoLIST("catid") seriesID = adoLIST("sid") trackID = adoLIST("trackid") ''eventdate = adoLIST("rdate") ''dDATE = setvalid( adoLIST("rdate"), "" & MonthName( Month( adoLIST("rdate") ) ) & " " & Day( adoLIST("rdate") ) & ", " & Year( adoLIST("rdate") ) & "", empty ) dDATE = setvalid( adoLIST("edate"), "" & MonthName( Month( adoLIST("edate") ) ) & " " & Day( adoLIST("edate") ) & ", " & Year( adoLIST("edate") ) & "", empty ) dTITLE = setvalid( adoLIST("stitle"), "" & adoLIST("stitle") & "", empty ) dLOCALTRACK = setvalid( adoLIST("localtrack"), adoLIST("localtrack"), 0 ) ''If dLOCALTRACK > 0 Then If seriesID= 0 and trackID > 0 Then ''dTITLE = setvalid( adoLIST("titleshort"), "" & adoLIST("titleshort") & "", empty ) dTITLE = setvalid( adoLIST("division"), "" & adoLIST("division") & "", empty ) End If dSPEEDWAY = setvalid( adoLIST("trkname"), "" & adoLIST("trkname") & "", empty ) ''dEVENTTITLE = setvalid( adoLIST("eventtitle"), "" & adoLIST("eventtitle") & "", empty ) dEVENTTITLE = setvalid( adoLIST("venuetitle") & " " & adoLIST("eventtitle"), "" & adoLIST("venuetitle") & " " & adoLIST("eventtitle") & "", empty ) dLOC = empty If isvalid( adoLIST("trkstate") ) Then If isvalid( adoLIST("trkcity") ) Then _ dLOC = dLOC & "" & Replace( adoLIST("trkcity"), " ", " ") & ", " & "" If adoLIST("trkcountrycode") = "US" Then statePATH = cleanFilename( adoLIST("trkstate") ) dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & "" Else dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & " - " & Replace( adoLIST("trkcountry"), " ", " ") & "" End If End If starcolor = "red" ''If adoLIST("rdate") < Date() Then starcolor = "blue" If adoLIST("edate") < Date() Then starcolor = "blue" If isvalid( dSPEEDWAY ) Then If lastDATE = dDATE Then If lastSPEEDWAY = dSPEEDWAY Then %>
<%=dTITLE%> <%=dEVENTTITLE%>
<%=dSPEEDWAY%> - <%=dLOC%>
<%=dTITLE%> <%=dEVENTTITLE%>

<% End If %>
<%=dDATE%>
<% End If lastDATE = dDATE lastSPEEDWAY = dSPEEDWAY End If adoLIST.MoveNext Wend End If Set adoLIST = Nothing adoLIST = Empty CloseDataConn() %>
<%=dSPEEDWAY%> - <%=dLOC%>
<%=dTITLE%> <%=dEVENTTITLE%>

<%=monthList%>
<%=thisEVENTDISPLAY%> <%=currentDATE%>