0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: r= Request.QueryString("yr")
0008: If yr = "" Then yr = season
0009: PicksId = Request.QueryString("PicksID")
0010: BadID = Request.QueryString("BadID")
0011: GoodID = Request.QueryString("GoodID")
0012: 
0013: 
0014: 		Set rs = Server.CreateObject("ADODB.Recordset")
0015: 
0016: If PicksID = "" Then
0017: 
0018: 		sqlString = "SELECT * FROM mm2ndPicks " & _
0019: 								"WHERE Season = " & yr & " " & _
0020: 								"AND Complete = 'Yes'"
0021: 
0022: Else
0023: 
0024: 		sqlString = "SELECT * FROM mm2ndPicks " & _
0025: 								"WHERE Season = " & yr & " " & _
0026: 								"AND ID = " & PicksID & " " & _
0027: 								"AND Complete = 'Yes'"
0028: 
0029: End If
0030: 
0031: Response.Write("<br>" & SqlString)
0032: 
0033: 		rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0034: 	
0035: 		Do Until rs.EOF
0036: 		ID = RS("ID").VALUE
0037: 
0038: 		Changed = ""
0039: 
0040: 		For I = 1 To 15
0041: 			field = "A" & I
0042: 			TeamID = rs(field).Value
0043: 				If TeamID = "c01" Then
0044: 				rs(field).Value = "C01"
0045: 			Changed = "X"
0046: 			End If
0047: 		Next
0048: 	
0049: 		If Changed = "X" Then
0050: 
0051: 			Response.Write("<br>ID=" & ID & " Changed")
0052: 			rs.Update
0053: 		End If
0054: 	
0055: 		Rs.MoveNext
0056: 		Loop
0057: 
0058: 
0059: 		Response.Write("<br>Done with fix")
0060: 
0061: %>