<%@ LANGUAGE="VBScript" %> <% '' Dim trackID trackID = 0 If Not Request.QueryString("tid") = "" Then trackID = Request.QueryString("tid") Dim currentEDAY currentEDAY = DateDiff( "d", "01/01/" & Year(Now()), Date() ) + 1 'set default dates' dateFROM = "01/01/" & Year( Date() ) dateTO = "01/01/" & Year( Date() ) + 1 ''response.write "raa_contentevent 0, 0, " & trackID & ", '" & dateFROM & "','" & dateTO & "'" ''response.end 'get series details' Dim adoLIST, trackNAME, thisTRACKDISPLAY, thisTRACKINFO, thisTRACKURL, thisTRACKZIP, thisSTATECODE, stateNAME, statePATH 'raa_contentevent catid, sid, trackid, datefrom, dateto' Set adoLIST = ExecuteSP( dbVirtualThunder, "raa_contentevent 0, 0, " & trackID & ", '" & dateFROM & "','" & dateTO & "'" ) If not adoLIST.EOF Then trackNAME = adoLIST("trkname") thisTRACKDISPLAY = Replace( adoLIST("trkname"), " ", " ") thisTRACKZIP = adoLIST("trkzip") thisSTATECODE = adoLIST("trkstatecode") stateNAME = empty statePATH = empty If isvalid( adoLIST("trkstate") ) Then stateNAME = Replace( adoLIST("trkstate"), " ", " ") If Not adoLIST("trkcountrycode") = "US" Then statePATH = cleanFilename( adoLIST("trkstate") & "_" & adoLIST("trkcountry") ) Else statePATH = cleanFilename( adoLIST("trkstate") ) End If End If ''dSPEEDWAY = setvalid( adoLIST("trkname"), "" & adoLIST("trkname") & "", empty ) dSPEEDWAY = setvalid( adoLIST("trkname"), "" & adoLIST("trkname") & "", empty ) dWEBSITE = setvalid( adoLIST("URL"), "Website:
" & adoLIST("URL") & "", empty ) dLOC = empty If isvalid( adoLIST("trkstate") ) Then If isvalid( adoLIST("trkcity") ) Then _ dLOC = "" & Replace( adoLIST("trkcity"), " ", " ") & ", " & "" If adoLIST("trkcountrycode") = "US" Then dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & "" Else dLOC = dLOC & "" & Replace( adoLIST("trkstate"), " ", " ") & " - " & Replace( adoLIST("trkcountry"), " ", " ") & "" End If End If dDESC = empty If isvalid( adoLIST("length") ) or isvalid( adoLIST("banking") ) or isvalid( adoLIST("material") ) or isvalid( adoLIST("shape") ) Then _ dDESC = "" & formattrackdesc( adoLIST("length"), adoLIST("banking"), adoLIST("material"), adoLIST("shape") ) & "" ''dDESC = "Details: " & formattrackdesc( adoLIST("length"), adoLIST("banking"), adoLIST("material"), adoLIST("shape") ) & "" dMAILING = empty dMAILING = dMAILING & setvalid( adoLIST("maddress1"), adoLIST("maddress1") & "
", empty ) dMAILING = dMAILING & setvalid( adoLIST("maddress2"), adoLIST("maddress2") & "
", empty ) If isvalid( adoLIST("mcity") ) and isvalid( adoLIST("mstatecode") ) and isvalid( adoLIST("mzip") ) Then _ dMAILING = dMAILING & adoLIST("mcity") & ", " & adoLIST("mstatecode") & " " & adoLIST("mzip") If not isempty( dMAILING ) Then dMAILING = "Mailing Address:
" & adoLIST("trkname") & "
" & dMAILING & "
" dDIVLIST= empty isVTTRACK = 0 dVTPROMO = " " If adoLIST("isvt") > 0 Then isVTTRACK = CInt( adoLIST("trackid") ) dVTPROMO = "Play along with this speedway at Virtual Thunder!" If isvalid( adoLIST("divlist") ) Then dDIVLIST = "Divisions:
" & Replace( Left(adoLIST("divlist"),Len(adoLIST("divlist")) - 1), "|", ", ") & "" End If End If dSERIESLIST = empty If isvalid( adoLIST("serieslist") ) Then arrSERIES = split( Left(adoLIST("serieslist"),Len(adoLIST("serieslist")) - 1), "_" ) seriesLIST = empty For iloop = 0 to uBound( arrSERIES ) arrITEM = split( arrSERIES(iloop), "|" ) seriesLIST = seriesLIST & "
" & arrITEM(1) & " " Next dSERIESLIST = "Series: " & seriesLIST End If End If Set adoLIST = adoLIST.NextRecordset pageTITLE = thisTRACKDISPLAY %> Racing Around America: <%=pageTITLE%>
<%=thisTRACKDISPLAY%> <%=currentDATE%>
Return to Map <% If not isempty( stateNAME ) Then %> - More speedways in <%=stateNAME%> <% End If %>

<% Else If not isempty( lastDATE ) Then %>
<% If False Then If isvalid( thisTRACKZIP ) Then %> <% End If End If %>
<%=dSPEEDWAY%> - <%=dLOC%>
<% If not isempty( dDETAILS ) Then %> <% End If If not isempty( dMAILING ) Then %> <% End If If not isempty( dDIVLIST ) Then %> <% End If If not isempty( dSERIESLIST ) Then %> <% End If If not isempty( dWEBSITE ) Then %> <% End If %>
<%=dDESC%> <%=dVTPROMO%>
<%=dDETAILS%>
<%=dMAILING%>
<%=dDIVLIST%>
<%=dSERIESLIST%>
<%=dWEBSITE%>
WXPort

<% If False Then Dim checkARTICLE, articleFILE 'check for page-specific articles' articleFILE = "../content/raatrack_" & trackID & ".asp" Set checkARTICLE = Server.CreateObject("MSWC.Tools") If checkARTICLE.FileExists( articleFILE ) = -1 Then Server.Execute( articleFILE ) End If %>

<% If isvalid( thisTRACKZIP ) Then %>
Click Here for more detailed weather information.


Powered by www.racetrackweather.com.

<% End If %> <% If adoLIST.EOF Then %>
Event information for this speedway is not currently available.
Contact RacingAroundAmerica.com
<% Else %>
click series for more details
<% 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("localtrack"), adoLIST("localtrack"), 0 ) ''If dLOCALTRACK > 0 Then If seriesID=0 and trackID > 0 Then dTITLE = setvalid( adoLIST("division"), "" & adoLIST("division") & "", empty ) End If dSPEEDWAY = setvalid( adoLIST("trkname"), "" & adoLIST("trkname") & "", empty ) ''dEVENTTITLE = setvalid( adoLIST("eventtitle"), "" & adoLIST("eventtitle") & "", " " ) ''dEVENTTITLE = setvalid( adoLIST("eventtitle"), adoLIST("eventtitle"), " " ) dVENUETITLE = " " dEVENTTITLE = " " If isvalid( adoLIST("venuetitle") ) Then dVENUETITLE = adoLIST("venuetitle") If isvalid( adoLIST("eventtitle") ) Then dEVENTTITLE = dEVENTTITLE & " " & adoLIST("eventtitle") dVTPROMO = " " isOPENEVENT = setvalid( adoLIST("estatus"), adoLIST("estatus"), 0 ) If isOPENEVENT = 1 or isOPENEVENT = 10 Then 'open or about to close' If adoLIST("isvt") > 0 Then dVTPROMO = "Play Along!" Else dVTPROMO = "This event is open! Make your picks at Virtual Thunder!" End If End If starcolor = "red" If adoLIST("edate") < Date() Then starcolor = "blue" If isvalid( dSPEEDWAY ) Then If lastDATE = dDATE Then %>

<%=dTITLE%> <%=dEVENTTITLE%> <%=dVTPROMO%>

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

Return to Map <% If not isempty( stateNAME ) Then %> - More speedways in <%=stateNAME%> <% End If %>
<%=thisTRACKDISPLAY%> <%=currentDATE%>