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 = Ucase(Trim(Request.Form("A01")))
0010: 	A02 = Ucase(Trim(Request.Form("A02")))
0011: 	A03 = Ucase(Trim(Request.Form("A03")))
0012: 	A04 = Ucase(Trim(Request.Form("A04")))
0013: 	A05 = Ucase(Trim(Request.Form("A05")))
0014: 	A06 = Ucase(Trim(Request.Form("A06")))
0015: 	A07 = Ucase(Trim(Request.Form("A07")))
0016: 	A08 = Ucase(Trim(Request.Form("A08")))
0017: 	A09 = Ucase(Trim(Request.Form("A09")))
0018: 	A10 = Ucase(Trim(Request.Form("A10")))
0019: 	A11 = Ucase(Trim(Request.Form("A11")))
0020: 	A12 = Ucase(Trim(Request.Form("A12")))
0021: 	A13 = Ucase(Trim(Request.Form("A13")))
0022: 	A14 = Ucase(Trim(Request.Form("A14")))
0023: 	A15 = Ucase(Trim(Request.Form("A15")))
0024: 	A16 = Ucase(Trim(Request.Form("A16")))
0025: 	
0026: 
0027: 
0028: 	If ID = "0" Then
0029: 		Set rs = Server.CreateObject("ADODB.Recordset")
0030: 		rs.Open "mm2ndTeams", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0031: 		rs.AddNew
0032: 	Else
0033: 		Set rs = Server.CreateObject("ADODB.Recordset")
0034: 		sqlString = "SELECT * FROM mm2ndTeams WHERE ID = " & ID
0035: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0036: 		If rs.EOF Then
0037: 			rs.Close
0038: 			Response.Redirect("displaymenu.asp?parent=15&title=Wrap%20up%20activities")
0039: 		End If
0040: 	End If
0041: 	rs("Season").Value = yr
0042: 	rs("A01").Value = A01
0043: 	rs("A02").Value = A02
0044: 	rs("A03").Value = A03
0045: 	rs("A04").Value = A04
0046: 	rs("A05").Value = A05
0047: 	rs("A06").Value = A06
0048: 	rs("A07").Value = A07
0049: 	rs("A08").Value = A08
0050: 	rs("A09").Value = A09
0051: 	rs("A10").Value = A10
0052: 	rs("A11").Value = A11
0053: 	rs("A12").Value = A12
0054: 	rs("A13").Value = A13
0055: 	rs("A14").Value = A14
0056: 	rs("A15").Value = A15
0057: 	rs("A16").Value = A16
0058: 	
0059: 	rs.Update
0060: 	rs.Close
0061: 	Set rs = Nothing
0062: 	
0063: 			Response.Redirect("setupteamss16.asp")	
0064: %>