<% '*****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 * FROM drugtesting order by "&ListOrder ' '*****Execute query, assign results to SQLquery Set QueryResult= OBJdbConnection.Execute(SQLquery) ' ' ' %> Salt Lake Tribune - College Drug Testing
College Drug Testing  
 
   
 
  CLOSE THIS WINDOW  
College Drug Testing

   Using the open-records laws applicable in each state, The Salt Lake Tribune requested detailed information on the student-athlete drug testing programs for every school in Division I-A college athletics and three additional schools in the state of Utah.
    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 below are schools that provided some response, even if it was to reject our request. Schools not listed did not reply in any way.

  If you have have a comment or additional information to add, please email us webmaster@sltrib.com
   OTHER LINKS:
  • URL1
  • URL2
  • URL3

    Revised: November 13, 2007, 4 p.m.
  •  
    <% ' 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 Schoolwide Policy? Random Testing? First-Time Suspension?
    "> <%= QueryResult("institution_name") %> <%= QueryResult("schoolwide_policy")%> <%= Queryresult("random")%> <%= QueryResult("firsttime_suspension")%>
      CLOSE THIS WINDOW