0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 
0007: 	user = Request.Cookies("user")
0008: 
0009: 	Set rsd = Server.CreateObject("ADODB.Recordset")
0010: 	sqlString = "Delete FROM PropPicks WHERE Season = " & Season &" AND EmailAddress = '" & User & "'"
0011:     rsd.Open sqlString, conn3, adOpenDynamic, adLockOptimistic, adCmdText
0012: '	rsd.Close
0013:     Set rsd = Nothing
0014: 
0015: '	Set rsd = Server.CreateObject("ADODB.Recordset")
0016: '	sqlString = "Delete FROM PropEntries WHERE EntryID = " & EntryID & " AND EventID = " & EventID
0017: '    rsd.Open sqlString, conn3, adOpenDynamic, adLockOptimistic, adCmdText
0018: ''	rsd.Close
0019: '    Set rsd = Nothing
0020: 
0021: 	Set rst = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER BY DisplayOrder, ID"
0023: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0024: 
0025: 
0026: Dim Picks(100,3)
0027: 
0028: MySelections = ""
0029: Kount = 0
0030: Error = ""
0031: Do Until rst.Eof
0032: Kount = Kount + 1
0033: ID = rst("ID").Value
0034: IDN = CStr(ID)
0035: 
0036: 'Response.Write("<br>Bet=" & ID & "=" & Request.Form(IDN))
0037: Picks(Kount,0) = ID
0038: Picks(Kount,1) = Request.Form(IDN)
0039: Picks(Kount,2) = rst("DisplayOrder").Value
0040: 
0041: If Picks(Kount,1) = "" Then Picks(Kount,1) = 1
0042: 
0043: MySelections =  MySelections & "-" & Picks(Kount,1)
0044: 
0045: 
0046: rst.MoveNext
0047: Loop
0048: 
0049: 'k = 0
0050: 'Do Until k >= Kount
0051: 'k = k + 1
0052: 'Response.Write("<br>Bet=" & Picks(k,0) & "=" & Picks(k,1))
0053: 'Loop
0054: 
0055: 
0056: 
0057: 
0058: 	Set rs = Server.CreateObject("ADODB.Recordset")
0059: 	sqlString = "SELECT * FROM PropPicks WHERE Season = " & Season &" AND EmailAddress = '" & User & "'"
0060: 
0061: 'Response.Write("<BR>" & sqlstring)
0062: 
0063: 	   rs.Open sqlString, Conn3, adOpenDynamic, adLockOptimistic, adCmdText
0064: 
0065: 
0066:     If rs.EOF Then
0067: 	rs.AddNew
0068: 	End If
0069: rs("Season").Value = Season
0070: rs("EmailAddress").Value = user
0071: rs("MySelections").Value = MySelections
0072: 
0073: 
0074:     rs.Update
0075: 
0076:  Response.Redirect("proppicksdisplay2.asp?EntryID=" & EntryID )
0077: 
0078: 
0079: %>