<%@ Language = VBScript %> <% Email = request.form("Email") if len(Email) <> 0 then 'Open database set con = server.createObject("ADODB.Connection") con.open(strServerConnection) 'Check whether user is in our database sqlString = "Select Email from Newsletter" set rs = con.execute(sqlString) while not rs.eof if trim(rs("Email")) = Email then blnFound = true end if rs.moveNext wend if blnFound then sqlString = "Delete from Newsletter Where Email = '"&Email&"'" con.execute(sqlString) output = Email & " has been removed from our database." else output = Email & " has not subscribed yet." end if end if %> <%=CompanyName%> - Newsletter Removal

Newsletter Removal

<%=output%>

">
myNewsletter version <%=ScriptVersion%>
ASP Burst (http://www.aspburst.com)