<%
intSeriesID = sqlEncode(request("s")) & ""
intEventID = sqlEncode(request("e")) & ""
Set conn=server.createobject("adodb.connection")
conn.open strConn
sql = "SELECT DISTINCT series.series_id, series.series_desc FROM series, event_data WHERE event_data.series_id = series.series_id OR event_data.series_id2 = series.series_id OR event_data.series_id3 = series.series_id OR event_data.series_id4 = series.series_id ORDER BY series.series_id asc"
Set RS = conn.execute(sql)
if RS.EOF <> TRUE and RS.BOF <> TRUE then
arrSeries = rs.getrows
if ubound(arrSeries,2) = 0 then
intSeriesID = arrSeries(0,0)
end if
end if
set RS=nothing
if intSeriesID <> "" then
sql = "SELECT event_location, event_id, event_date, event_name FROM event_data WHERE series_id = " & intSeriesID & " OR series_id2 = " & intSeriesID & " OR series_id3 = " & intSeriesID & " OR series_id4 = " & intSeriesID & " ORDER BY event_date ASC"
Set RS = conn.execute(sql)
if RS.EOF <> TRUE and RS.BOF <> TRUE then
arrRound = rs.getrows
if ubound(arrRound,2) = 0 then
intEventID = arrRound(1,0)
end if
end if
set RS=nothing
end if
if intEventID <> "" then
sql = "SELECT DISTINCT class.class_id, class.class_desc, event_data.event_id, class.sort_order, class.points_class FROM class, event_data, event_entries WHERE (event_entries.event_id = event_data.event_id) AND (event_entries.class_id = class.class_id) AND event_data.event_id = " & intEventID & " AND (event_data.series_id = " & intSeriesID & " OR event_data.series_id2 = " & intSeriesID & " OR event_data.series_id3 = " & intSeriesID & " OR event_data.series_id4 = " & intSeriesID & ") ORDER BY event_data.event_id ASC, class.sort_order ASC, class.points_class ASC"
Set RS = conn.execute(sql)
if rs.eof <> true and rs.bof <> true then
arrClasses = rs.getrows
end if
set RS = nothing
end if
conn.close
set conn = nothing
if isArray(arrSeries) then
strSeriesDrop = ""
end if
if isArray(arrRound) then
intEventID = cstr(intEventID)
strEventDrop = ""
if isArray(arrOveralls) then
for intloop = 0 to ubound(arrOveralls,2)
strOverallDrop = strOverallDrop & ""
next
end if
if intEventID <> "" then
strClassDrop = " "
end if
end if
%>
. : Texas Off Road Championship Series - 512-632-2369
