<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> <% 'close data connection Call CloseConn() %> <% dim watchdog If Request.QueryString("mode") = "delete" Then 'BEGIN: DELETE SUBSCRIBER 'dim strMode - The strMode variable is defined in the header_inc.asp file. dim intGroupToDeleteId intGroupToDeleteId = Trim(Request.QueryString("id")) strMode = Trim(Request.QueryString("mode")) 'open data connection Call OpenConn() 'Delete IDX_LOOKUP references Call Delete_LookUpGroup(intGroupToDeleteId) 'Then delete the group Call DeleteGroup(intGroupToDeleteId) 'close data connection Call CloseConn() Session("FeedbackMode") = LCase(strMode) Session("FeedbackError") = err.number Session("FeedbackModule") = "groups" Session("Referer") = "/admin/groups.asp" Response.Write("") Response.Write("") 'END: DELETE GROUP Else watchdog = "else" 'BEGIN: DISPLAY GROUPS 'open the data connection Call openConn() %>

Add a group     Import Subscribers <%Call ManageGroups()%>

<% 'close the data connection Call CloseConn() 'END: DISPLAY SUBSCRIBER INDEX End If %>