<%@LANGUAGE="VBSCRIPT"%> <% if session("coachid")<>"" then Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_dbConn_STRING Recordset1.Source = "SELECT * FROM coach WHERE coachid ="& session("coachid") Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 else response.redirect "Coaches.asp" mymessage = "You must login before entering the Coaches area. Click Here to login." end if %> <% Dim Recordset2a Dim Recordset2a_numRows Set Recordset2a = Server.CreateObject("ADODB.Recordset") Recordset2a.ActiveConnection = MM_dbConn_STRING Recordset2a.Source = "SELECT * FROM teams WHERE TeamId=" & Request.querystring("teamid") Recordset2a.CursorType = 0 Recordset2a.CursorLocation = 2 Recordset2a.LockType = 1 Recordset2a.Open() Recordset2a_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_dbConn_STRING Recordset2.Source = "SELECT * FROM teamRosters WHERE TeamId=" & Request.querystring("teamid") & " ORDER BY Lastname, firstname ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2a_numRows = Recordset2a_numRows + Repeat2__numRows myfilename = Recordset2a.fields.item("TeamName") & "Roster.xls" Response.Buffer = False 'response.ContentType = "text/csv" Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment; filename="&myFileName %> Performance Timing, LLC - Start List Export <% sCoach = Recordset1("firstname") & " " & recordset1("lastname") sTeamName = Recordset2a("TeamName") %> <% do while not Recordset2.eof sFirstName = Recordset2("FirstName") sLastName = Recordset2("LastName") sClass = Recordset2("Class") sAge = Recordset2("Age") sGender = Recordset2("Gender") sGrade = Recordset2("Grade") %> <% Recordset2.movenext loop %>
Team Name First Name Last Name Class Age Gender Grade 
<%=sTeamName %> <%=sFirstName %> <%=sLastName %> <%=sClass %> <%=sAge %> <%=sGender %> <%=sGrade %>