<%
intSeriesID = sqlEncode(request("s")) & ""
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_entries.class_id, class.class_desc, class.sort_order, sum(event_entries.class_points) AS points, class.points_class FROM event_entries, class, event_data WHERE class.class_id = class.points_class AND class.class_id = event_entries.class_id AND (event_data.series_id = " & intSeriesID & " OR event_data.series_id2 = " & intSeriesID & " OR event_data.series_id3 = " & intSeriesID & " OR event_data.series_id4 = " & intSeriesID & ") GROUP BY event_entries.class_id, class.class_desc, class.sort_order, class.points_class ORDER BY 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
strTimer = formatNumber(timer - strTimerStart, 3)
if isArray(arrSeries) then
strSeriesDrop = ""
end if
if intSeriesID <> "" then
strClassDrop = " "
end if
%>
. : Texas Off Road Championship Series - 512-632-2369
