click series title for event schedule
<%
If adoLIST.EOF Then
%>
Series information is not currently available. |
<%
Else
Dim dataOUT, catID, seriesID, itemCT
While not adoLIST.EOF
catID = adoLIST("catid")
seriesID = adoLIST("sid")
dTITLE = setvalid( adoLIST("stitle"), "" & adoLIST("stitle") & "", empty )
dDESC = setvalid( adoLIST("description"), "" & adoLIST("description") & "", empty )
dCAT = setvalid( adoLIST("category"), "" & Replace( Replace( adoLIST("category"), " Racing", ""), " ", " ") & "", empty )
''dEVENTCT = setvalid( adoLIST("eventcount"), adoLIST("eventcount") & " events", empty )
%>
<%=dTITLE%> |
<%=dCAT%> |
|
<%
adoLIST.MoveNext
Wend
End If
Set adoLIST = Nothing
adoLIST = Empty
CloseDataConn()
%>
|
|
|