<% '*****Assign value of order to ListOrder ListOrder= request.querystring("order") ' '*****If the ListOrder is blank, make it District,School ' If LEN(LISTORDER)=0 then ListOrder="institution_name" ' '*****Open DB ConnectionA Connection to AYP.mdb in same folder ' Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "drugtesting",_ "DATABASE=drugtesting;UID=sltrib;PWD=;DSN=drugtesting" ' '*****Build SELECT with variables, ORDER BY variable ListerOrder SQLquery="select drugtesting.schools.institution_ID,drugtesting.schools.institution_name,drugtesting.schools.response,drugtesting.schools.sportsconference,drugtesting.schools.state,drugtesting.drugtesting.schoolwide_policy,drugtesting.drugtesting.random,drugtesting.drugtesting.firsttime_suspension FROM drugtesting.schools LEFT JOIN drugtesting.drugtesting ON drugtesting.drugtesting.institution_ID = drugtesting.schools.institution_ID" if len(request.querystring("conf")) >0 then if (request.querystring("conf") = "UT") then sqlquery=sqlquery& " WHERE drugtesting.schools.state ='"& request.querystring("conf")&"'" else sqlquery=sqlquery& " WHERE sportsconference='"& request.querystring("conf")&"'" end if end if sqlquery=sqlquery& " order by "&ListOrder ' '*****Execute query, assign results to SQLquery Set QueryResult= OBJdbConnection.Execute(SQLquery) ' SQLquery2="select response,count(response) as total from drugtesting.schools group by response order by total desc" ' Set QueryResult2= OBJdbConnection.Execute(SQLquery2) ' SQLquery3="select sum(tests04) as tests2004,sum(tests05) as tests2005,sum(tests06) as tests2006,sum(tests07) as tests2007,sum(positives04) as positives2004,sum(positives05) as positives2005,sum(positives06) as positives2006,sum(positives07) as positives2007 from drugtesting.drugtesting" ' Set QueryResult3= OBJdbConnection.Execute(SQLquery3) ' ' %> Salt Lake Tribune - College Drug Testing
icon

Collegiate Drug Testing: A National Survey
   A Salt Lake Tribune survey of all schools in Division I-A college athletics has found vast differences in the way drug-testing programs are administered.
   Using the open-records laws applicable in each state, The Tribune requested detailed information on student-athlete drug testing programs administered by the schools themselves, separate from the NCAA.
    Our standard request sought an accounting of all positive tests; drug testing schedules; records related to punishments for positives; program budgets or allocations by year; policies and procedures; any audits or reports discussing the program; copies of contracts with drug-test vendors; and information provided by vendors in the course of submitting bids to run the program.
    Listed at right are every school's basic responses, and links to narrow the list by conference. Click on a school name for more details on that school's policies and results.
  If you have have a comment or additional information to add, please email us webmaster@sltrib.com

<% '**** DO WHILE for contents of QueryResult ' do while not QueryResult2.eof ' '**** Alternate bgcolor for each record of QueryResult ' if bgcolor="#FFFFFF" then bgcolor="#E7E7D6" else bgcolor="#FFFFFF" end if ' '**** ' deliver bgcolor ' %> <% Queryresult2.movenext Loop%>
Survey Responses
<%= QueryResult2("response") %>
<%= QueryResult2("total")%>

 
Total Drug Tests
Positives
2004
<%= QueryResult3("tests2004") %>
<%= QueryResult3("positives2004") %>
2005
<%= QueryResult3("tests2005") %>
<%= QueryResult3("positives2005") %>
2006
<%= QueryResult3("tests2006") %>
<%= QueryResult3("positives2006") %>
2007
<%= QueryResult3("tests2007") %>
<%= QueryResult3("positives2007") %>

 
Related stories from The Salt Lake Tribune:

  • Broken college system lets drug cheats slip through the cracks
  • Dropping the hammer at Utah schools
  • U. of U. lab detects the elite who cheat
  • Athletes give views on doping


    Related graphics from The Salt Lake Tribune:
    • Narrow by Conference
     

     
    <% if len(request.querystring("conf"))=0 then schoolname="All Schools" else schoolname=request.querystring("conf") end if %> <%=schoolname%>
    <% ' Hyperlink column headings District, School WholeAchLang and WholeAchMath ' to HREFs that assign that value to variable: order %> <% '**** DO WHILE for contents of QueryResult ' do while not QueryResult.eof ' '**** Alternate bgcolor for each record of QueryResult ' if bgcolor="#FFFFFF" then bgcolor="#E7E7D6" else bgcolor="#FFFFFF" end if ' '**** ' ' deliver bgcolor, var: District ' %> <% Queryresult.movenext Loop%>
    Institution Survey Response? Schoolwide Policy? Random Testing? First-Time Suspension?
    "> <%= QueryResult("institution_name") %> <%= QueryResult("response")%> <%= QueryResult("schoolwide_policy")%> <%= Queryresult("random")%> <%= QueryResult("firsttime_suspension")%>