<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<title>Processing...
</head>
<body>
<p>
<%
set Mailer = Server.CreateObject( "CDO.Message" )
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
Mailer.To = "mailinglist@xequte.com"
Mailer.From = """Postmaster"" "
Mailer.Subject = Request.Form("action") & " " & Request.Form("listname") & " " & Request.Form("email")
Mailer.TextBody = "Email: " & Request.Form("email") & vbCrLf & "Action: " & Request.Form("action") & vbCrLf & "Reason_For_Leaving:" & Request.Form("Reason_For_Leaving")
if Mailer.Send<>0 then 'bad mail
Response.Write "<META HTTP-EQUIV='REFRESH' CONTENT='0; URL=http://www.xequte.com/contact/badmail.html'>"
else
Response.Write "<META HTTP-EQUIV='REFRESH' CONTENT='0; URL=http://www.xequte.com/mailinglist/thankyou.html'>"
end if
' Free the CDO object
set Mailer = Nothing
%>
</body>
</html>