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: 	action = Trim(Request.Form("action"))
0010: 	nodeID = Trim(Request.Form("NodeID"))
0011: 	ID = Trim(Request.Form("MenuID"))
0012: 	Response.Write("action=" & action & "ID=" & ID)
0013: 	nodeName = Trim(Request.Form("NodeName"))
0014: 	parentID = Trim(Request.Form("ParentID"))
0015: 	typeValue = Trim(Request.Form("Type"))
0016: 	Description = Trim(Request.Form("Description"))
0017: 	link = Trim(Request.Form("Link"))
0018: 	ImageID = Trim(Request.Form("ImageID"))
0019: 	TDClass = Trim(Request.Form("TDClass"))		
0020: 	If action = "Add" Then
0021: 		Set rs = Server.CreateObject("ADODB.Recordset")
0022: 		rs.Open "mmMenu", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0023: 		rs.AddNew
0024: 	ElseIf action = "Edit" Then
0025: 		Set rs = Server.CreateObject("ADODB.Recordset")
0026: 		sqlString = "SELECT * FROM mmMenu WHERE ID = " & ID
0027: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0028: 		If rs.EOF Then
0029: 			rs.Close
0030: 			Response.Redirect("MM_Menu_Maint.asp")
0031: 		End If
0032: 	Else
0033: 		Response.Redirect("MM_Menu_Maint.asp")
0034: 	End If
0035: 	
0036: 	rs("NodeID").Value = nodeID
0037: 	rs("NodeName").Value = nodeName
0038: 	rs("ParentID").Value = parentID
0039: 	rs("Description").Value = Description
0040: 	rs("Type").Value = typeValue
0041: 	rs("Link").Value = link
0042: 	rs("ImageID").Value = ImageID
0043: 	rs("TDClass").Value = TDClass
0044: 	rs.Update
0045: 	rs.Close
0046: 	Set rs = Nothing
0047: 	
0048: 	Response.Redirect("MM_Menu_Maint.asp")		
0049: %>