%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if session("coachid")<>"" then
Dim Recordset1a
Dim Recordset1a_numRows
Set Recordset1a = Server.CreateObject("ADODB.Recordset")
Recordset1a.ActiveConnection = MM_dbConn_STRING
Recordset1a.Source = "SELECT * FROM coach WHERE coachid ="& session("coachid")
Recordset1a.CursorType = 0
Recordset1a.CursorLocation = 2
Recordset1a.LockType = 1
Recordset1a.Open()
Recordset1a_numRows = 0
else
response.redirect "Coaches.asp"
mymessage = "You must login before entering the Coaches area. Click Here to login."
end if
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_dbConn_STRING
Recordset1.Source = "SELECT * FROM qryRaces WHERE RaceId=" & request.querystring("RaceId")
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim rsStartLists
Dim rsStartLists_numRows
Set rsStartLists = Server.CreateObject("ADODB.Recordset")
rsStartLists.ActiveConnection = MM_dbConn_STRING
rsStartLists.Source = "SELECT DISTINCT RaceDate, RaceTitle, TeamId, TeamName, RaceId,closingdate,school, coach FROM qryStartList WHERE RaceId=" & request.querystring("RaceId")
rsStartLists.CursorType = 0
rsStartLists.CursorLocation = 2
rsStartLists.LockType = 1
rsStartLists.Open()
rsStartLists_numRows = 0
%>
<%
Dim rsRoster
Dim rsRoster_numRows
Set rsRoster = Server.CreateObject("ADODB.Recordset")
rsRoster.ActiveConnection = MM_dbConn_STRING
rsRoster.Source = "SELECT * FROM qryracedetails WHERE RaceId=" & request.querystring("RaceId")& " Order By Segment, DivisionName, AgeGroup ASC"
rsRoster.CursorType = 0
rsRoster.CursorLocation = 2
rsRoster.LockType = 1
rsRoster.Open()
rsRoster_numRows = 0
%>
<%
Dim rsRoster2
Dim rsRoster2_numRows
Set rsRoster2 = Server.CreateObject("ADODB.Recordset")
rsRoster2.ActiveConnection = MM_dbConn_STRING
rsRoster2.Source = "SELECT * FROM qryStartList"
rsRoster2.CursorType = 0
rsRoster2.CursorLocation = 2
rsRoster2.LockType = 1
rsRoster2.Open()
rsRoster2_numRows = 0
myFileName = rsStartLists("RaceTitle") & "-" & rsStartLists("RaceDate")
myfilename = myFileName & ".xls"
Response.Buffer = False
'response.ContentType = "text/csv"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename="&myFileName
'response.redirect "StartListsViewAll.asp?RaceId="&request.querystring("RaceId")&"&TeamId="&request.querystring("TeamId")
%>
Event | Race Date | Race Title | Name | Class | Age | Gender | Grade |
<% response.write(myevent)%> | <% response.write (Recordset1.fields.item("RaceDate").value) %> | <% response.write (Recordset1.fields.item("RaceTitle").value) %> | <% response.write rsRoster2.fields.item("Lastname").value & ", " & rsRoster2.fields.item("firstname").value%> | <% response.write rsRoster2.fields.item("class").value%> | <% response.write rsRoster2.fields.item("age").value%> | <% response.write rsRoster2.fields.item("gender").value%> | <% response.write rsRoster2.fields.item("grade").value%> |