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: 	MMRound = Trim(Request.Form("MMRound"))
0012: 	WTeamID = Trim(Request.Form("WTeamID"))
0013: 	LTeamID = Trim(Request.Form("LTeamID"))
0014: 	WScore = Trim(Request.Form("WScore"))
0015: 	LScore = Trim(Request.Form("LScore"))
0016: 	WTeamName = displayTeam(WTeamID) 	
0017: 	LTeamName = displayTeam(LTeamID)
0018: 
0019: 
0020: 	If ID = "0" Then
0021: 		Set rs = Server.CreateObject("ADODB.Recordset")
0022: 		rs.Open "mmScores", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0023: 		rs.AddNew
0024: 	Else
0025: 		Set rs = Server.CreateObject("ADODB.Recordset")
0026: 		sqlString = "SELECT * FROM mmScores WHERE ID = " & ID
0027: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0028: 		If rs.EOF Then
0029: 			rs.Close
0030: 			Response.Redirect("displaymenu.asp?parent=55&title=Wrap%20up%20activities")
0031: 		End If
0032: 	End If
0033: 	WNumber = Right(WScore,1)
0034: 	LNumber = Right(LScore,1)
0035: 	   rs("Season").Value = Yr
0036: 	     rs("MMRound").Value = MMRound
0037:          rs("WTeamID").Value = WTeamID
0038: 		 rs("WTeamName").Value = WTeamName
0039: 		rs("LTeamID").Value = LTeamID
0040: 		 rs("LTeamName").Value = LTeamName
0041: 		rs("WScore").Value = WScore
0042: 		rs("LScore").Value = LScore
0043: 		rs("WNumber").Value = WNumber
0044: 		 rs("LNumber").Value = LNumber
0045: 	rs.Update
0046: 	rs.Close
0047: 	Set rs = Nothing
0048: 
0049: 
0050: 			Response.Redirect("GameScoresList.asp")	
0051: %>