0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: 
0004: <!-- #include FILE="include/adovbs.inc" -->
0005: <!-- #include FILE="include/constants.inc" -->
0006: <!-- #include FILE="include/funcs.asp" -->
0007: 
0008: <%
0009: 	Yr = Trim(Request.Form("Season"))
0010: 	ID = Trim(Request.Form("ID"))
0011: 	RegID = Trim(Request.Form("RegID"))
0012: 	RegName = Trim(Request.Form("RegName"))
0013: 		If ID = "0" Then
0014: 		Set rs = Server.CreateObject("ADODB.Recordset")
0015: 		rs.Open "mmRegionals", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0016: 		rs.AddNew
0017: 	Else
0018: 		Set rs = Server.CreateObject("ADODB.Recordset")
0019: 		sqlString = "SELECT * FROM mmRegionals WHERE ID = " & ID
0020: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0021: 		If rs.EOF Then
0022: 			rs.Close
0023: 			Response.Redirect("displaymenu.asp?parent=55&title=Wrap%20up%20activities")
0024: 		End If
0025: 	End If
0026: 	Response.Write(MainEntries & "+" & S16Entries)
0027: 	rs("Season").Value = Yr
0028: 	rs("RegionName").Value = RegName
0029: 	rs("Region").Value = RegID
0030: 	
0031: 	rs.Update
0032: 	rs.Close
0033: 	Set rs = Nothing
0034: 
0035: Response.Redirect("RegionsList.asp")
0036: 
0037: %>