0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	ID = Trim(Request.QueryString("id"))
0008: 		XParentID = Trim(Request.QueryString("ParentID"))	
0009: 	
0010: 	Set cn = Server.CreateObject("ADODB.Connection")
0011: 	cn.Open Conn
0012: 	sqlString = "DELETE FROM mmMenu WHERE ID = " & ID
0013: 	cn.Execute sqlString, lngRecs, adCmdText + adExecuteRecords	
0014: 	cn.Close
0015: 	Set cn = Nothing
0016: 	
0017: 	Response.Redirect("DES_Menu_Maint.asp?ParentID=" & XParentID)
0018: 	
0019: %>