0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 
0008: 	XParentID = Trim(Request.QueryString("ParentID"))
0009: 	action = Trim(Request.Form("action"))
0010: 	nodeID = Trim(Request.Form("NodeID"))
0011: 	nodeName = Trim(Request.Form("NodeName"))
0012: 	ID = Trim(Request.Form("MenuID"))
0013: 	Description = Trim(Request.Form("Description"))
0014: 	If isFolder = "" Then
0015: 		isFolder = False
0016: 	Else
0017: 		isFolder = True
0018: 	End If
0019: 	parentID = Trim(Request.Form("ParentID"))
0020: 	ImageID = Trim(Request.Form("ImageID"))	
0021: 	typeValue = Trim(Request.Form("Type"))
0022: 	link = Trim(Request.Form("Link"))
0023: '	NeedLogin = Trim(Request.Form("NeedLogin"))
0024: 	TDClass = Trim(Request.Form("TDClass"))	
0025: '   SecurityLevel = Trim(Request.Form("SecurityLevel"))		
0026: 	If action = "Add" Then
0027: 		Set rs = Server.CreateObject("ADODB.Recordset")
0028: 		rs.Open "mmMenu", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0029: 		rs.AddNew
0030: 	ElseIf action = "Edit" Then
0031: 		Set rs = Server.CreateObject("ADODB.Recordset")
0032: 		sqlString = "SELECT * FROM mmMenu WHERE ID = " & ID
0033: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0034: 		If rs.EOF Then
0035: 			rs.Close
0036: 			Response.Redirect("DES_Menu_Maint.asp")
0037: 		End If
0038: 	Else
0039: 		Response.Redirect("DES_Menu_Maint.asp")
0040: 	End If
0041: 
0042: 	If NeedLogin = "Y" Then
0043: 		NeedLogin = True
0044: 	Else
0045: 		NeedLogin = False
0046: 	End If
0047: 	
0048: 	rs("NodeID").Value = nodeID
0049: 	rs("NodeName").Value = nodeName
0050: 	rs("Description").Value = Description
0051: 	rs("ParentID").Value = parentID
0052: 	rs("ImageID").Value = imageID	
0053: 	rs("Type").Value = typeValue
0054: 	rs("Link").Value = link
0055: '	rs("NeedLogin").Value = NeedLogin
0056: 	rs("TDClass").Value = TDClass	
0057: '	rs("SecurityLevel").Value = SecurityLevel	
0058: 	rs.Update
0059: 	rs.Close
0060: 	Set rs = Nothing
0061: 	
0062: 	Response.Redirect("DES_Menu_Maint.asp?ParentID=" & XParentID )		
0063: %>