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
%>
|