<% dim RS dim SQL Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open dsn SQL = "DELETE FROM List WHERE ID LIKE ('" & request.querystring("member") & "')" Set RS = Conn.Execute(SQL) %> <%=RSBODY("List_Name")%>
 <%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 Remove Subscriber
The Subscriber has been removed.

&page=<%=Request("page")%>&SearchFor=<%=Request("SearchFor")%>&SearchWhere=<%=Request("SearchWhere")%>"><< Return
Maintained with the SiteBuilder Mailing List Manager v1.07