0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	tablename = Trim(Request.Form("table"))
0008: 	id = Trim(Request.Form("ID"))
0009: 	
0010: 	havecomma = Instr(id, ",")
0011:  
0012: 	If havecomma <> 0 Then	
0013: 	id = mid(id, 1, havecomma-1)
0014:    End if	
0015: 
0016: 	teamid = Trim(Request.Form("TeamId"))
0017: 	action = Trim(Request.Form("action"))
0018: 	
0019: 	Set rs = Server.CreateObject("ADODB.Recordset")
0020: 
0021: 	Select Case action
0022: 		Case "Add"
0023: 			rs.Open tablename, conn, adOpenDynamic, adLockOptimistic, adCmdTable
0024: 			rs.AddNew
0025: 			If tablename <> "mmConfig" Then
0026: 			  rs("Season").Value = season
0027: 			End If
0028: 		Case "Change"
0029: 		    If tablename <> "mmResults" Then
0030: 		    	sqlString = "SELECT * FROM " & tablename & " WHERE ID = " & id 
0031: 			Else
0032: 			    If tablename = "mmConfig" Then
0033: 					sqlString = "SELECT * FROM mmConfig WHERE ID = " & id 
0034: 		        Else
0035: 		       	sqlString = "SELECT * FROM mmResults WHERE ID = '" & id & "' AND Season = " & season
0036: 		       End If
0037: 			End If
0038: 			response.write(sqlstring)
0039: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0040: 		Case "Update"
0041: 			sqlString = "SELECT * FROM " & tablename & " WHERE ID = " & id
0042: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0043: 	
0044: 		Case "Delete"
0045: 		If tablename = "mmConfig" Then
0046: 			sqlString = "DELETE FROM " & tablename & " WHERE ID = " & id  
0047: 	    Else
0048: 			sqlString = "DELETE FROM " & tablename & " WHERE ID = " & id
0049: 	    End If
0050: 	    Response.Write(sqlString)
0051: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0052: 	End Select
0053: 	
0054: 	If action = "Add" Or action = "Change"  Or action = "Update" Then
0055: 		For each objItem in Request.Form
0056: 			If objItem <> "table" And objItem <> "ID" And objItem <> "TeamID" And objItem <> "action" Then
0057: 			   
0058: 				rs(objItem).Value = Trim(Request.Form(objItem))
0059: 			End If
0060: 		Next
0061: 		rs.Update
0062: 		rs.Close		
0063: 	End If
0064: 	Set rs = Nothing
0065: 	
0066: 
0067: If tablename <> "mmConfig" Then
0068: 	Response.Redirect("viewTables.asp?table=" & tablename)
0069: Else
0070: 	Response.Redirect("UpdConfig.Asp?Table=mmConfig")
0071: End If
0072: 
0073: 'If tablename <> "mmConfig" Then
0074: '	Response.Write("viewTables.asp?table=" & tablename)
0075: 'Else
0076: '	Response.Write("UpdConfig.Asp")
0077: 'End If
0078: 
0079: %>