0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: '
0006: ' Remove Old Results
0007: '
0008: 
0009: '-------------------------------------------------------------
0010: 
0011: Set rs = Server.CreateObject("ADODB.Recordset")
0012: 	sqlString = "SELECT * FROM mmResults " & _
0013: 			"WHERE Season = " & season & " " & _
0014: 			"AND F32Pts > 0 "
0015: 			Response.Write(sqlString)
0016: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0017: 	
0018: 	If Rs.EOF Then
0019: 	
0020: 	
0021: '--------------------------------------------------------------	
0022: 	
0023: 	
0024: 
0025:    Set cn = Server.CreateObject("ADODB.Connection")
0026: 	cn.Open conn
0027: 	sqlString = "DELETE FROM mmResults " & _
0028: 							"WHERE Season = " & season 
0029: 	cn.Execute sqlString, lngRecs, adExecuteNoRecords
0030: 	cn.Close
0031: 	Set cn = Nothing
0032: 
0033: 
0034: 
0035: Set rsTeams = Server.CreateObject("ADODB.Recordset")
0036: 	sqlString = "SELECT * FROM mmTeams WHERE Season = " & season
0037: 	rsTeams.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0038: 	
0039: 	' set up field names depending on region
0040: 	Dim char
0041: 	char = Array("A","B","C","D")
0042: 	Dim teamfield(16)
0043:    For region = 1 to 4
0044: 	regionChar = char(region - 1)
0045: Response.Write("Doing Region=" & regionChar & "(" & region & ")<br>")
0046: 
0047: 	For i = 0 To 15
0048: 		j = i + 1
0049: 		If j < 10 Then
0050: 			num = "0" & CStr(j)
0051: 		Else
0052: 			num = CStr(j)
0053: 		End If
0054: 		teamfield(i) = rsTeams(regionChar & num).Value
0055: 
0056: 	Select Case num
0057:      Case "01"
0058:         DispOrd = 1
0059:      Case "02"
0060:         DispOrd = 15
0061:      Case "03"
0062:         DispOrd = 11
0063:      Case "04"
0064:         DispOrd = 7
0065:      Case "05"
0066:         DispOrd = 5
0067:      Case "06"
0068:         DispOrd = 9
0069:      Case "07"
0070:         DispOrd = 13
0071:      Case "08"
0072:         DispOrd = 3
0073:      Case "09"
0074:         DispOrd = 4
0075:      Case "10"
0076:         DispOrd = 14
0077:      Case "11"
0078:         DispOrd = 10
0079:      Case "12"
0080:         DispOrd = 6
0081:      Case "13"
0082:         DispOrd = 8
0083:      Case "14"
0084:         DispOrd = 12
0085:      Case "15"
0086:         DispOrd = 16
0087:      Case "16"
0088:         DispOrd = 2
0089:   End Select        
0090:      Response.Write("Team ID=" & regionChar & num & " - " & teamfield(i))  
0091:      Response.Write(" / " & regionChar & " " & DispOrd & "<br>")
0092: 
0093:  Set rsResults = Server.CreateObject("ADODB.Recordset")
0094: 		rsResults.Open "mmResults", conn, adOpenDynamic, adLockOptimistic, adCmdTable
0095: 		rsResults.AddNew
0096:        rsResults("ID") = regionChar & num
0097: 		rsResults("Season").Value = season
0098: 		rsResults("Region").Value = regionChar
0099: 		rsResults("Display_Order").Value = DispOrd
0100: 	    rsResults("Name").Value = teamfield(i)
0101:        rsResults("F32Pts").Value = 0
0102:        rsResults("F16Pts").Value = 0
0103:        rsResults("F8Pts").Value = 0
0104:        rsResults("F4Pts").Value = 0
0105:        rsResults("F2Pts").Value = 0
0106:        rsResults("F1Pts").Value = 0
0107:        rsResults.Update
0108:        rsResults.Close
0109:        Set rsResults = Nothing
0110: 
0111: 
0112: 	Next
0113:    Response.Write("<br> Next Region <br>")
0114:    Next 
0115: 	rsTeams.Close
0116: 	Set rsTeams = Nothing
0117: 	
0118: 	
0119: 	Else ' Resuts have scores posted.  No Updates
0120: 	
0121: 	 Response.Write("<br>Scores have been posted.  No changes allowed to Results table")
0122: 	
0123: 	
0124: 	End If
0125: %>
0126: