%@ 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 %>
<%=thisSERIESDISPLAY%><%=thisSERIESINFO%> | <%=currentDATE%> |
Series List <% If not isempty( categoryTITLE ) Then %> - More <%=categoryTITLE%> <% End If %> - Play along at Virtual Thunder | |
click speedway or state for more details
<%
If adoLIST.EOF Then
%>
" & 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%> | ||||
|
Series List <% If not isempty( categoryTITLE ) Then %> - More <%=categoryTITLE%> <% End If %> - Play along at Virtual Thunder | |
<%=thisSERIESDISPLAY%><%=thisSERIESINFO%> | <%=currentDATE%> |