<%@ 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