<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>Test Email Form</title>
</HEAD>
<BODY>
<center>
<%
If Request.Form("email") <> "" Then
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = Request.Form("email")
Mailer.To = "newsletter-REQUEST@yourdomain.com" 'your mailing list address with -REQUEST
'Mailer.Cc = ""
Mailer.Subject = Request.Form("subject")
Mailer.BodyFormat=0
Mailer.MailFormat = 0
Mailer.Body = ""
Mailer.Send
If Request.form("subject") = "Subscribe" then
Response.Write("<font color=green><b>Thank you for for subscribing to our mailing list! You will receive a confirmation email shortly.<b></font>")
else
Response.Write("<font color=Red><b>Your address will be immediately removed from our mailing list. You will receive a confirmation email shortly.<b></font>")
end if
set Mailer=Nothing
Else
%>
Unsubscribe your email from the mailing list...
<form name="unsubscribe" method="post" action="subscription.asp">
<table>
<tr><td>Email Address: </td><td><input type="text" name="email">
</td></tr>
</table><br>
<input type=hidden value="Unsubscribe" name="subject">
<input type="submit" value="Unsubscribe">
</form>
<br>
Subscribe to our mailing list!
<form name="subscribe" method="post" action="subscription.asp">
<table>
<tr><td>Email Address: </td><td><input type="text" name="email">
</td></tr>
</table><br>
<input type=hidden value="Subscribe" name="subject">
<input type="submit" value="Subscribe!">
</form>
<%
End If
%>
</center>
</BODY>
</HTML>