<%@ LANGUAGE="VBScript" %> <% '' Dim thisSID thisSID = 0 If Not Request.QueryString("sid") = "" Then thisSID = Request.QueryString("sid") Dim currentEDAY currentEDAY = DateDiff( "d", "01/01/" & Year(Now()), Date() ) + 1 'set default dates' dateFROM = "01/01/" & Year( Date() ) ''dateTO = DateAdd( "yyyy", 1, Date() ) dateTO = "01/01/" & Year( Date() ) + 1 ''response.write "raa_contentevent 0, " & thisSID & ", 0, '" & dateFROM & "','" & dateTO & "'" ''response.end 'get series details' Dim adoLIST, thisSERIESDISPLAY, thisSERIESINFO, categoryTITLE, categoryID 'raa_contentevent catid, sid, trackid, datefrom, dateto' Set adoLIST = ExecuteSP( dbVirtualThunder, "raa_contentevent 0, " & thisSID & ", 0, '" & dateFROM & "','" & dateTO & "'" ) 'fetch category information' thisSERIESDISPLAY = empty thisSERIESINFO = empty thisSERIESID = empty categoryID = empty categoryTITLE = empty If not adoLIST.EOF Then thisSERIESDISPLAY = adoLIST("stitle") thisSERIESID = adoLIST("sid") If isvalid( adoLIST("category") ) Then categoryTITLE= Replace( adoLIST("category"), " ", " ") categoryID = adoLIST("catid") thisSERIESINFO = "  " & "" & adoLIST("category") & "" End If End If Set adoLIST = adoLIST.NextRecordset pageTITLE = thisSERIESDISPLAY %> Racing Around America: <%=pageTITLE%>
<%=thisSERIESDISPLAY%><%=thisSERIESINFO%> <%=currentDATE%>
Series List <% If not isempty( categoryTITLE ) Then %> - More <%=categoryTITLE%> <% End If %> - Play along at Virtual Thunder

<% Else %> <% End If Else ''lastSPEEDWAY = empty If not isempty( lastDATE ) Then %>
click speedway or state for more details <% If adoLIST.EOF Then %>
Sorry!
Series information is not currently available.
<% 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("edate") 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("edate"), adoLIST("edate"), empty ) ''If dLOCALTRACK > 0 Then _ '' dTITLE = setvalid( adoLIST("titleshort"), "" & adoLIST("titleshort") & "", empty ) dSPEEDWAY = setvalid( adoLIST("trkname"), "" & adoLIST("trkname") & "", empty ) dEVENTTITLE = setvalid( adoLIST("venuetitle") & " " & adoLIST("eventtitle"), "" & adoLIST("venuetitle") & " " & adoLIST("eventtitle") & "", empty ) dDTYPE = adoLIST("dtype") dEVENTTITLE = "* " & dDTYPE & " *
" & dEVENTTITLE 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 If adoLIST("trkcountrycode") = "CA" Then statePATH = cleanFilename( adoLIST("trkstate") & "_" & adoLIST("trkcountry") ) dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & " - " & Replace( adoLIST("trkcountry"), " ", " ") & "" Else dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & " - " & Replace( adoLIST("trkcountry"), " ", " ") & "" End If End If End If dVTPROMO = " " isOPENEVENT = setvalid( adoLIST("estatus"), adoLIST("estatus"), 0 ) If isOPENEVENT = 1 or isOPENEVENT = 10 Then 'open or about to close' dVTPROMO = "This event is open! Make your picks at Virtual Thunder!" End If starcolor = "red" If adoLIST("edate") < Date() Then starcolor = "blue" If isvalid( dSPEEDWAY ) Then If lastDATE = dDATE Then If lastSPEEDWAY = dSPEEDWAY Then %>
 <%=dSPEEDWAY%>
<%=dLOC%>
<%=dEVENTTITLE%> <%=dVTPROMO%>
 <%=dSPEEDWAY%>
<%=dLOC%>
<%=dEVENTTITLE%> <%=dVTPROMO%>

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

Series List <% If not isempty( categoryTITLE ) Then %> - More <%=categoryTITLE%> <% End If %> - Play along at Virtual Thunder
<%=thisSERIESDISPLAY%><%=thisSERIESINFO%> <%=currentDATE%>