0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	EMAILMSGBOARDPOSTINGS = Trim(Request.Form("EMAILMSGBOARDPOSTINGS"))
0008: 	SHOWSTANDINGSTOUNPAID = Trim(Request.Form("SHOWSTANDINGSTOUNPAID"))
0009: 	REGOPEN = Trim(Request.Form("REGOPEN"))
0010: 	REG2NDOPEN = Trim(Request.Form("REG2NDOPEN"))
0011: 	STARTMAKEPICKS = Trim(Request.Form("STARTMAKEPICKS"))
0012: 	START2NDMAKEPICKS = Trim(Request.Form("START2NDMAKEPICKS"))
0013: 	STOPMAKEPICKS = Trim(Request.Form("STOPMAKEPICKS"))
0014: 	STOP2NDMAKEPICKS = Trim(Request.Form("STOP2NDMAKEPICKS"))
0015: 	SHOWPAYOUTAMOUNT = Trim(Request.Form("SHOWPAYOUTAMOUNT"))
0016: 	If EMAILMSGBOARDPOSTINGS <> "YES" Then
0017:        EMAILMSGBOARDPOSTINGS = "NO"
0018: 	End If
0019: 	If SHOWSTANDINGSTOUNPAID <> "YES" Then
0020:        SHOWSTANDINGSTOUNPAID = "NO"
0021: 	End If
0022: 	If REGOPEN <> "YES" Then
0023:        REGOPEN = "NO"
0024: 	End If
0025: 	If REG2NDOPEN <> "YES" Then
0026:        REG2NDOPEN = "NO"
0027: 	End If
0028: 	If STARTMAKEPICKS <> "YES" Then
0029:        STARTMAKEPICKS = "NO"
0030: 	End If
0031: 	If START2NDMAKEPICKS <> "YES" Then
0032:        START2NDMAKEPICKS = "NO"
0033: 	End If
0034: 	If STOPMAKEPICKS <> "YES" Then
0035:        STOPMAKEPICKS = "NO"
0036: 	End If
0037: 	If STOP2NDMAKEPICKS <> "YES" Then
0038:        STOP2NDMAKEPICKS = "NO"
0039: 	End If
0040: 	If SHOWPAYOUTAMOUNT <> "YES" Then
0041:        SHOWPAYOUTAMOUNT = "NO"
0042: 	End If
0043: 
0044: 	Set rs = Server.CreateObject("ADODB.Recordset")
0045: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'SHOWPAYOUTAMOUNT'"
0046: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0047: 	rs("Value").Value = SHOWPAYOUTAMOUNT
0048: 	rs.Update
0049: 	rs.Close
0050: 	Set rs = Nothing
0051: 
0052: 	Set rs = Server.CreateObject("ADODB.Recordset")
0053: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'EMAILMSGBOARDPOSTINGS'"
0054: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0055: 	rs("Value").Value = EMAILMSGBOARDPOSTINGS
0056: 	rs.Update
0057: 	rs.Close
0058: 	Set rs = Nothing
0059: 
0060: 	Set rs = Server.CreateObject("ADODB.Recordset")
0061: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'SHOWSTANDINGSTOUNPAID'"
0062: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0063: 	rs("Value").Value = SHOWSTANDINGSTOUNPAID
0064: 	rs.Update
0065: 	rs.Close
0066: 	Set rs = Nothing
0067: 
0068: 	Set rs = Server.CreateObject("ADODB.Recordset")
0069: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'REG2NDOPEN'"
0070: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0071: 	rs("Value").Value = REG2NDOPEN
0072: 	rs.Update
0073: 	rs.Close
0074: 	Set rs = Nothing
0075: 
0076: 	Set rs = Server.CreateObject("ADODB.Recordset")
0077: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'REGOPEN'"
0078: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0079: 	rs("Value").Value = REGOPEN
0080: 	rs.Update
0081: 	rs.Close
0082: 	Set rs = Nothing
0083: 
0084: 	Set rs = Server.CreateObject("ADODB.Recordset")
0085: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'STOP2NDMAKEPICKS'"
0086: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0087: 	rs("Value").Value = STOP2NDMAKEPICKS
0088: 	rs.Update
0089: 	rs.Close
0090: 	Set rs = Nothing
0091: 
0092: 	Set rs = Server.CreateObject("ADODB.Recordset")
0093: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'STOPMAKEPICKS'"
0094: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0095: 	rs("Value").Value = STOPMAKEPICKS
0096: 	rs.Update
0097: 	rs.Close
0098: 	Set rs = Nothing
0099: 
0100: 	Set rs = Server.CreateObject("ADODB.Recordset")
0101: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'START2NDMAKEPICKS'"
0102: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0103: 	rs("Value").Value = START2NDMAKEPICKS
0104: 	rs.Update
0105: 	rs.Close
0106: 	Set rs = Nothing
0107: 
0108: 	Set rs = Server.CreateObject("ADODB.Recordset")
0109: 	sqlString = "SELECT * FROM mmConfig WHERE Element = 'STARTMAKEPICKS'"
0110: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0111: 	rs("Value").Value = STARTMAKEPICKS
0112: 	rs.Update
0113: 	rs.Close
0114: 	Set rs = Nothing
0115: 
0116: 
0117: 
0118: 	
0119: 	Response.Redirect("displaymenugen.asp?parent=30&title=March%20Madness%20-%20Scores / Standings Update")		
0120: %>