0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	MyEmail = Request.Cookies("user")
0008: 	picksid = Request.QueryString("pick")
0009: 	If MyEmail = "" Then Response.Redirect("login_m.asp?from=picks.asp")
0010: 	page = Request.QueryString("page")
0011: 	If page = "" Then page = "region"
0012: 
0013: 	Set rs = Server.CreateObject("ADODB.Recordset")
0014: 	sqlString = "SELECT * FROM mmPicks " & _
0015: 							"WHERE ID = " & picksid
0016: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0017: 	rs("Complete").Value = "No"
0018: 	rs.Update
0019: 	rs.Close
0020: 	Set rs = Nothing
0021: 
0022: 	If page = "final" Then
0023: 		Response.Redirect("picks2.asp")
0024: 	ElseIf page = "region" Then
0025: 		Response.Redirect("picks1.asp?region=1")
0026: 	End If
0027: 	
0028: 	Response.Redirect("picks.asp")
0029: %>