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: 
0010: 	ID = Trim(Request.QueryString("ID"))
0011: 	RegNumber = Trim(Request.Form("RegNumber"))
0012: 	FirstName = Trim(Request.Form("FirstName"))
0013: 	LastName = Trim(Request.Form("LastName"))
0014: 	GroupID = Trim(Request.Form("GroupID"))
0015: 	DraftOrder = Trim(Request.Form("DraftOrder"))
0016: 
0017: 		If ID = "0" Then
0018: 		Set rs = Server.CreateObject("ADODB.Recordset")
0019: 		rs.Open "mmDraft", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0020: 		rs.AddNew
0021: 	Else
0022: 		Set rs = Server.CreateObject("ADODB.Recordset")
0023: 		sqlString = "SELECT * FROM mmDraft WHERE ID = " & ID
0024: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0025: 		If rs.EOF Then
0026: 			rs.Close
0027: 		End If
0028: 	End If
0029: 
0030: 	rs("Season").Value = Season
0031: 	rs("RegNumber").Value = RegNumber
0032: 	rs("FirstName").Value = FirstName
0033: 	rs("LastName").Value = LastName
0034: 	rs("GroupID").Value = GroupID
0035: 	rs("DraftOrder").Value = DraftOrder
0036: 	
0037: 	rs.Update
0038: 	rs.Close
0039: 	Set rs = Nothing
0040: 
0041: Response.Redirect("DraftParticipants.asp?GroupID=" & GroupID)
0042: 
0043: %>