%@ 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
%>
<%=thisTRACKDISPLAY%> | <%=currentDATE%> |
Return to Map <% If not isempty( stateNAME ) Then %> - More speedways in <%=stateNAME%> <% End If %> | |
<% 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 %>
<% End If %> <% If adoLIST.EOF Then %>
| |||
<%=dTITLE%> | <%=dEVENTTITLE%> | <%=dVTPROMO%> |
<% End If %>
<%=dDATE%> - <%=dVENUETITLE%> | |||||
|
Return to Map <% If not isempty( stateNAME ) Then %> - More speedways in <%=stateNAME%> <% End If %> | |
<%=thisTRACKDISPLAY%> | <%=currentDATE%> |