0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	yr = Request.QueryString("yr")
0007: 	If yr = "" Then yr = season
0008: 	ID = Request.QueryString("ID")
0009: 	A01 = Trim(Request.Form("A01"))
0010: 	A02 = Trim(Request.Form("A02"))
0011: 	A03 = Trim(Request.Form("A03"))
0012: 	A04 = Trim(Request.Form("A04"))
0013: 	A05 = Trim(Request.Form("A05"))
0014: 	A06 = Trim(Request.Form("A06"))
0015: 	A07 = Trim(Request.Form("A07"))
0016: 	A08 = Trim(Request.Form("A08"))
0017: 	A09 = Trim(Request.Form("A09"))
0018: 	A10 = Trim(Request.Form("A10"))
0019: 	A11 = Trim(Request.Form("A11"))
0020: 	A12 = Trim(Request.Form("A12"))
0021: 	A13 = Trim(Request.Form("A13"))
0022: 	A14 = Trim(Request.Form("A14"))
0023: 	A15 = Trim(Request.Form("A15"))
0024: 	A16 = Trim(Request.Form("A16"))
0025: 	B01 = Trim(Request.Form("B01"))
0026: 	B02 = Trim(Request.Form("B02"))
0027: 	B03 = Trim(Request.Form("B03"))
0028: 	B04 = Trim(Request.Form("B04"))
0029: 	B05 = Trim(Request.Form("B05"))
0030: 	B06 = Trim(Request.Form("B06"))
0031: 	B07 = Trim(Request.Form("B07"))
0032: 	B08 = Trim(Request.Form("B08"))
0033: 	B09 = Trim(Request.Form("B09"))
0034: 	B10 = Trim(Request.Form("B10"))
0035: 	B11 = Trim(Request.Form("B11"))
0036: 	B12 = Trim(Request.Form("B12"))
0037: 	B13 = Trim(Request.Form("B13"))
0038: 	B14 = Trim(Request.Form("B14"))
0039: 	B15 = Trim(Request.Form("B15"))
0040: 	B16 = Trim(Request.Form("B16"))
0041: 	C01 = Trim(Request.Form("C01"))
0042: 	C02 = Trim(Request.Form("C02"))
0043: 	C03 = Trim(Request.Form("C03"))
0044: 	C04 = Trim(Request.Form("C04"))
0045: 	C05 = Trim(Request.Form("C05"))
0046: 	C06 = Trim(Request.Form("C06"))
0047: 	C07 = Trim(Request.Form("C07"))
0048: 	C08 = Trim(Request.Form("C08"))
0049: 	C09 = Trim(Request.Form("C09"))
0050: 	C10 = Trim(Request.Form("C10"))
0051: 	C11 = Trim(Request.Form("C11"))
0052: 	C12 = Trim(Request.Form("C12"))
0053: 	C13 = Trim(Request.Form("C13"))
0054: 	C14 = Trim(Request.Form("C14"))
0055: 	C15 = Trim(Request.Form("C15"))
0056: 	C16 = Trim(Request.Form("C16"))
0057: 	D01 = Trim(Request.Form("D01"))
0058: 	D02 = Trim(Request.Form("D02"))
0059: 	D03 = Trim(Request.Form("D03"))
0060: 	D04 = Trim(Request.Form("D04"))
0061: 	D05 = Trim(Request.Form("D05"))
0062: 	D06 = Trim(Request.Form("D06"))
0063: 	D07 = Trim(Request.Form("D07"))
0064: 	D08 = Trim(Request.Form("D08"))
0065: 	D09 = Trim(Request.Form("D09"))
0066: 	D10 = Trim(Request.Form("D10"))
0067: 	D11 = Trim(Request.Form("D11"))
0068: 	D12 = Trim(Request.Form("D12"))
0069: 	D13 = Trim(Request.Form("D13"))
0070: 	D14 = Trim(Request.Form("D14"))
0071: 	D15 = Trim(Request.Form("D15"))
0072: 	D16 = Trim(Request.Form("D16"))
0073: 
0074: 
0075: 	If ID = "0" Then
0076: 		Set rs = Server.CreateObject("ADODB.Recordset")
0077: 		rs.Open "mmTeams", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0078: 		rs.AddNew
0079: 	Else
0080: 		Set rs = Server.CreateObject("ADODB.Recordset")
0081: 		sqlString = "SELECT * FROM mmTeams WHERE ID = " & ID
0082: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0083: 		If rs.EOF Then
0084: 			rs.Close
0085: 			Response.Redirect("displaymenu.asp?parent=15&title=Wrap%20up%20activities")
0086: 		End If
0087: 	End If
0088: 	rs("Season").Value = yr
0089: 	rs("A01").Value = A01
0090: 	rs("A02").Value = A02
0091: 	rs("A03").Value = A03
0092: 	rs("A04").Value = A04
0093: 	rs("A05").Value = A05
0094: 	rs("A06").Value = A06
0095: 	rs("A07").Value = A07
0096: 	rs("A08").Value = A08
0097: 	rs("A09").Value = A09
0098: 	rs("A10").Value = A10
0099: 	rs("A11").Value = A11
0100: 	rs("A12").Value = A12
0101: 	rs("A13").Value = A13
0102: 	rs("A14").Value = A14
0103: 	rs("A15").Value = A15
0104: 	rs("A16").Value = A16
0105: 	rs("B01").Value = B01
0106: 	rs("B02").Value = B02
0107: 	rs("B03").Value = B03
0108: 	rs("B04").Value = B04
0109: 	rs("B05").Value = B05
0110: 	rs("B06").Value = B06
0111: 	rs("B07").Value = B07
0112: 	rs("B08").Value = B08
0113: 	rs("B09").Value = B09
0114: 	rs("B10").Value = B10
0115: 	rs("B11").Value = B11
0116: 	rs("B12").Value = B12
0117: 	rs("B13").Value = B13
0118: 	rs("B14").Value = B14
0119: 	rs("B15").Value = B15
0120: 	rs("B16").Value = B16
0121: 	rs("C01").Value = C01
0122: 	rs("C02").Value = C02
0123: 	rs("C03").Value = C03
0124: 	rs("C04").Value = C04
0125: 	rs("C05").Value = C05
0126: 	rs("C06").Value = C06
0127: 	rs("C07").Value = C07
0128: 	rs("C08").Value = C08
0129: 	rs("C09").Value = C09
0130: 	rs("C10").Value = C10
0131: 	rs("C11").Value = C11
0132: 	rs("C12").Value = C12
0133: 	rs("C13").Value = C13
0134: 	rs("C14").Value = C14
0135: 	rs("C15").Value = C15
0136: 	rs("C16").Value = C16
0137: 	rs("D01").Value = D01
0138: 	rs("D02").Value = D02
0139: 	rs("D03").Value = D03
0140: 	rs("D04").Value = D04
0141: 	rs("D05").Value = D05
0142: 	rs("D06").Value = D06
0143: 	rs("D07").Value = D07
0144: 	rs("D08").Value = D08
0145: 	rs("D09").Value = D09
0146: 	rs("D10").Value = D10
0147: 	rs("D11").Value = D11
0148: 	rs("D12").Value = D12
0149: 	rs("D13").Value = D13
0150: 	rs("D14").Value = D14
0151: 	rs("D15").Value = D15
0152: 	rs("D16").Value = D16
0153: 
0154: 
0155: 	rs.Update
0156: 	rs.Close
0157: 	Set rs = Nothing
0158: 	
0159: 			Response.Redirect("displaymenu.asp?parent=35&title=Wrap%20up%20activities")	
0160: %>