%@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 rsSelTeam
Dim rsSelTeam_numRows
Set rsSelTeam = Server.CreateObject("ADODB.Recordset")
rsSelTeam.ActiveConnection = MM_dbConn_STRING
rsSelTeam.Source = "SELECT * FROM Teams WHERE TeamId=" & request.querystring("Teamid")
rsSelTeam.CursorType = 0
rsSelTeam.CursorLocation = 2
rsSelTeam.LockType = 1
rsSelTeam.Open()
rsSelTeam_numRows = 0
Dim rsSelEvent
Dim rsSelEvent_numRows
Set rsSelEvent = Server.CreateObject("ADODB.Recordset")
rsSelEvent.ActiveConnection = MM_dbConn_STRING
rsSelEvent.Source = "SELECT * FROM Race WHERE RaceId=" & request.querystring("Raceid")
rsSelEvent.CursorType = 0
rsSelEvent.CursorLocation = 2
rsSelEvent.LockType = 1
rsSelEvent.Open()
rsSelEvent_numRows = 0
FilterParam = "TeamId=" & request.querystring("Teamid") & " and RaceId=" & request.querystring("raceid")
'& " and TeamMemberId="& rsTeams.fields.item("TeamMemberId").value
if request.querystring("DivisionId")<>"" then
FilterParam = FilterParam & " and DivisionId=" & request.querystring("DivisionId")
end if
if request.querystring("SegmentId")<>"" then
FilterParam = FilterParam & " and SegmentId=" & request.querystring("SegmentId")
end if
if request.querystring("AgeGroupId")<>"" then
FilterParam = FilterParam & " and AgeGroupId=" & request.querystring("AgeGroupId")
end if
'rsStartList.Filter = FilterParam
Dim rsStartList
Dim rsStartList_numRows
Set rsStartList = Server.CreateObject("ADODB.Recordset")
rsStartList.ActiveConnection = MM_dbConn_STRING
rsStartList.Source = "SELECT * FROM qryStartList Where " & filterparam
rsStartList.CursorType = 0
rsStartList.CursorLocation = 2
rsStartList.LockType = 1
rsStartList.Open()
rsStartList_numRows = 0
Dim rsTeams
Dim rsTeams_numRows
Set rsTeams = Server.CreateObject("ADODB.Recordset")
rsTeams.ActiveConnection = MM_dbConn_STRING
rsTeams.Source = "SELECT * FROM TeamRosters WHERE TeamId=" & request.querystring("teamid") & " ORDER BY LastName, FirstName ASC"
rsTeams.CursorType = 0
rsTeams.CursorLocation = 2
rsTeams.LockType = 1
rsTeams.Open()
rsTeams_numRows = 0
if request.querystring("DivisionId")<>"" then
Dim rsDivisions
Dim rsDivisions_numRows
Set rsDivisions = Server.CreateObject("ADODB.Recordset")
rsDivisions.ActiveConnection = MM_dbConn_STRING
rsDivisions.Source = "SELECT * FROM Divisions WHERE DivisionId="&request.querystring("DivisionId")
rsDivisions.CursorType = 0
rsDivisions.CursorLocation = 2
rsDivisions.LockType = 1
rsDivisions.Open()
rsDivisions_numRows = 0
if not rsDivisions.eof then
HasDivisions=true
else
HasDivisions=false
end if
end if
If request.querystring("SegmentId")<>"" then
Dim rsSegments
Dim rsSegments_numRows
Set rsSegments = Server.CreateObject("ADODB.Recordset")
rsSegments.ActiveConnection = MM_dbConn_STRING
rsSegments.Source = "SELECT * FROM Segment WHERE SegmentId="&request.querystring("SegmentId")
rsSegments.CursorType = 0
rsSegments.CursorLocation = 2
rsSegments.LockType = 1
rsSegments.Open()
rsSegments_numRows = 0
if not rsSegments.eof then
HasSegments=true
else
HasSegments=false
end if
end if
If request.querystring("AgeGroupId")<>"" then
Dim rsAgeGroup
Dim rsAgeGroup_numRows
Set rsAgeGroup = Server.CreateObject("ADODB.Recordset")
rsAgeGroup.ActiveConnection = MM_dbConn_STRING
rsAgeGroup.Source = "SELECT * FROM AgeGroup WHERE AgeGroupId="&request.querystring("AgeGroupId")
rsAgeGroup.CursorType = 0
rsAgeGroup.CursorLocation = 2
rsAgeGroup.LockType = 1
rsAgeGroup.Open()
rsAgeGroup_numRows = 0
if not rsAgeGroup.eof then
HasAgeGroup=true
else
HasAgeGroup=false
end if
end if
%>
You are logged in as
<% = Recordset1.fields.item("firstname") %>
<%=Recordset1.fields.item("lastname")%> If this is not correct, please click here to log out. |
|||
|
|||