<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% sStatusMessage = "" If request("button") = "Delete Bad Emails" Then ' Get all the values from the textbox and delete each from the database emailbox = request("emails") ' Need to split the string up into the seperate emails, delimiter character is a new line emails = split(emailbox, vbcrlf, -1) for i = 0 to UBound(emails) query = "DELETE FROM IMailingList where Email = '" & trim(emails(i)) & "'" DBConn.Execute(query) sStatusMessage = sStatusMessage & emails(i) & " - deleted successfully
" next end if %> <%= WebsiteTitle %>
ADMIN Delete Bad Emails
 
<%=sStatusMessage%>

Email Addresses :
 
  * Note that each email address entered in the above box must be on a seperate line. eg.
test@email.com
test2@email.com