0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	yr = Request.QueryString("yr")
0008: 	team = Request.QueryString("team")
0009: 	ShowAll = Request.QueryString("ShowAll")
0010: 	Region = Request.QueryString("Region")
0011:    season = 2003
0012: 	If yr = "" Then yr = season
0013: 
0014: 	Set rs = Server.CreateObject("ADODB.Recordset")
0015: 	sqlString = "SELECT * FROM mmResults " & _
0016: 			"WHERE Season = " & yr & " " & _
0017: 			"AND ID = '" & team & "' " 
0018: 			Response.Write(sqlString)
0019: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0020: 	Dim Rounds(5)
0021: 	Dim Scores(6)
0022: 	Rounds(0) = "F32Pts"
0023: 	Rounds(1) = "F16Pts"
0024:   	Rounds(2) = "F8Pts"
0025: 	Rounds(3) = "F4Pts"
0026: 	Rounds(4) = "F2Pts"
0027: 	Rounds(5) = "F1Pts"
0028: 	Scores(0) = "F64Score"
0029: 	Scores(1) = "F32Score"
0030: 	Scores(2) = "F16Score"
0031: 	Scores(3) = "F8Score"
0032: 	Scores(4) = "F4Score"
0033: 	Scores(5) = "F2Score"
0034: 	Scores(6) = "F1Score"
0035: 
0036: 	TeamName = Request.Form("Name")
0037: 
0038: 		Do Until rs.EOF
0039: 		LastValue = 0
0040: 		For IntR = 0 to 5
0041: 		temp = Trim(Request.Form(Rounds(IntR)))
0042: 		If LastValue = "99" Then
0043: 		temp = "99"
0044: 		End If
0045: 		rs(Rounds(IntR)).Value = temp
0046: 		LastValue = Temp
0047: 		RoundScore = Trim(Request.Form(Scores(IntR)))
0048: 		If RoundScore = "" Then
0049: 		   RoundScore = 0
0050: 		End If
0051: 		rs(Scores(IntR)).Value = RoundScore
0052: 		Next
0053: 		RoundScore = Trim(Request.Form(Scores(6)))
0054: 		If RoundScore = "" Then
0055: 		   RoundScore = 0
0056: 		End If
0057: 		rs(Scores(6)).Value = RoundScore
0058: 		rs.Update
0059: 
0060:     	rs.MoveNext
0061: 		Loop
0062: 				rs.Close
0063: 		Set rs = Nothing
0064: 
0065: 
0066: 		Set rs = Server.CreateObject("ADODB.Recordset")
0067: 		sqlString = "SELECT * FROM mmConfig WHERE Element = 'SCORESUPDATED'" 
0068: 		rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0069: 
0070: 		rs("Value").Value = Now() & "</font>  (" & TeamName & ")"
0071: 		rs.update
0072: 		rs.Close
0073: 		Set rs = Nothing
0074: 		Response.Redirect("UpdateResults.asp?ShowAll=" & ShowAll & "&Region=" & Region)	
0075: 		%>