MailList.asp

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<title>Processing...</title>
</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"" <postmaster@xequte.com>"

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'></HEAD>"
else
  Response.Write "<META HTTP-EQUIV='REFRESH' CONTENT='0; URL=http://www.xequte.com/mailinglist/thankyou.html'></HEAD>"
end if

' Free the CDO object
set Mailer = Nothing

%>

</body>
</html>