<%@ Language=VBScript %>
<%	
Set mcMail=Server.CreateObject("WadesBindery.cMail")
If mcMail.IsValidEmail (Request.Form("txtEmail")) Then
	mcMail.SubEmail=Trim(Request.Form("txtEmail"))
	If Not mcMail.AddSubscriber then
		Set mcMail=Nothing
		Response.write ("Response1=Sorry!&Response2=The eMail address entered is already on the mailing list")
	Else
		Set mcMail=Nothing
		Response.write ("Response1=Thank you!&Response2=You have been added to our Newsletter")
	End If
Else
	Set mcMail=Nothing
	Response.write ("Response1=Sorry!&Response2=You have entered an invalid eMail Address")
End If
%>