<% Dim oConn, oRs, oRs1 Dim qry, qry1, connectstr Dim db_name, db_username, db_userpassword Dim db_server db_server = "p50mysql221.secureserver.net" db_name = "OUGA" db_username = "OUGA" db_userpassword = "falcpunch0N" function spaces() Response.Write "                 " Response.Write "                 " Response.Write "                 " Response.Write "                 " Response.Write "        " end function connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr qry = "SELECT COUNT(*) FROM Player" Set oRS = oConn.Execute(qry) call spaces() Response.Write "Number of Participants: " & oRS("COUNT(*)") & "

" qry = "SELECT * FROM Player" Set oRS = oConn.Execute(qry) if not oRS.EOF then while not oRS.EOF call spaces() Response.Write "SName: " & oRS("Smash") & "
" call spaces() Response.Write "Handle: " & oRS("Handle") & "
" call spaces() Response.Write "Location: " & oRS("Location") & "
" call spaces() Response.Write "Crew: " & oRS("Crew") & "
" call spaces() Response.Write "Events: " & oRS("Events") & "
" call spaces() Response.Write "Doubles Partner: " & oRS("Partner") & "
" call spaces() Response.Write "Doubles Team: " & oRS("Team") & "
" call spaces() Response.Write "Confirmed Setups: " & oRS("sureSetups") & "
" call spaces() Response.Write "Possible Setups: " & oRS("possSetups") & "
" call spaces() Response.Write "

" oRS.movenext wend oRS.close end if qry = "SELECT COUNT(*) FROM Player" Set oRS = oConn.Execute(qry) call spaces() Response.Write "Number of Participants: " & oRS("COUNT(*)") & "

" qry = "SELECT SUM(sureSetups) As sumSure FROM Player" Set oRS = oConn.Execute(qry) call spaces() Response.Write "Number of Confirmed Setups: " & oRS("sumSure") & "

" qry = "SELECT SUM(possSetups) As sumPoss FROM Player" Set oRS = oConn.Execute(qry) call spaces() Response.Write "Number of Possible Setups: " & oRS("sumPoss") & "

" call spaces() Response.Write "Players who do not have a partner for doubles:
" qry = "SELECT Smash FROM Player WHERE ''=Team" Set oRS = oConn.Execute(qry) if not oRS.EOF then while not oRS.EOF call spaces() Response.Write oRS("Smash") Response.Write "
" oRS.movenext wend oRS.close end if Response.Write "
" call spaces() Response.Write "Numbers from each group
" qry = "SELECT crew, COUNT( Smash ) FROM Player GROUP BY crew" Set oRS = oConn.Execute(qry) if not oRS.EOF then while not oRS.EOF call spaces() Response.Write oRS("crew") & ":      " & oRS("COUNT( Smash )") & "
" oRS.movenext wend oRS.close end if Response.Write "
" call spaces() Response.Write "Numbers for each event
" qry = "SELECT events, COUNT( Smash ) FROM Player GROUP BY events" Set oRS = oConn.Execute(qry) if not oRS.EOF then while not oRS.EOF call spaces() Response.Write oRS("events") & ":      " & oRS("COUNT( Smash )") & "
" oRS.movenext wend oRS.close end if Set oRs = nothing Set oConn = nothing %>