0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include file="include/adovbs.inc" -->
0004: <!-- #include file="include/constants.inc" -->
0005: 
0006: <%
0007: 	user = Request.Cookies("user")
0008: 	If user = "" Then Response.Redirect("login.asp?from=picks.asp")
0009: 
0010: 	' write the new data
0011: 	Set rs = Server.CreateObject("ADODB.Recordset")
0012: 	sqlString = "SELECT * FROM mmPicks " & _
0013: 			"WHERE Season = " & season & " " & _
0014: 			"AND EmailAddress = '" & user & "' " & _
0015: 			"AND Complete = 'No'"
0016: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0017: 	If Not rs.EOF Then
0018: 	   pickid = rs("ID").Value
0019: 		rs("S1").Value = Request.Form("S1")
0020: 		rs("S2").Value = Request.Form("S2")
0021: 		rs("F1").Value = Request.Form("F1")
0022: 		rs("EntryName").Value = Trim(Request.Form("entryname"))
0023: 		rs("RegNumber").Value = Trim(Request.Form("RegNumber"))		
0024: 		rs("Complete").Value = "Yes"
0025: 		rs("UsedMobile").Value = Session("UsedMobile")
0026: 		rs.Update
0027: 	End If
0028: 	rs.Close
0029: 	Set rs = Nothing
0030: 
0031:    
0032: '  Response.Redirect "picksconfirm.asp?ID=" & pickid
0033: 
0034: If Session("UsedMobile") = "Y" Then
0035: 	Response.Redirect("picks_m.asp")
0036: Else
0037: 	Response.Redirect("picks.asp")
0038: End If 	
0039: %>