<%@ LANGUAGE="VBSCRIPT" %>
<% strThisBackPage = "config" %>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/functions.asp"-->
<!--#include file="includes/back_security.asp"-->
<%
'===============================================
' CactuShop ASP Shopping Cart					
' Š1999-2004 Cactusoft Ltd. www.cactusoft.com
'===============================================
' All rights reserved.							
' Use of this code is covered by the terms and	
' conditions in the license agreement. No		
' unauthorized duplication or distribution is	
' permitted. Cactusoft's copyright notices must	
' remain in the ASP sections of the code.		
'===============================================

'-----------------------------------------------
'COLLECT VALUES FROM FORM						
'-----------------------------------------------
ML_ID = request.querystring("ML_ID") & ""
if ML_ID = "" then ML_ID = 0

'-----------------------------------------------
'DELETE IT				
'-----------------------------------------------
strQuery = strDeleteStatementSyntax & " tblCactuShopMailingList WHERE ML_ID = " & ML_ID

Call executeSQL(strQuery,numCursorType,objRecordSet)

'-----------------------------------------------
'REDIRECT TO THE LIST
'-----------------------------------------------
response.redirect "_mailinglist_list.asp"
%>