<%

email = Replace(request.Form("email"), "'", "''")
subject =  Replace(request.Form("subject"), "'", "''")
message =  Replace(request.Form("message"), "'", "''")
secret =  Replace(request.Form("secret"), "'", "''")

if secret = "machine" or secret = "Machine" then

dim receiver, strEmailMessage
dim senderName, senderCompany, senderPhonenumber, senderEmail, senderAddress

 
		
		ToEmail = "info@zillionaireband.com"
		FromEmail = email
		strEmailMessage = message
	
		'Send the message
		Dim objEmail
		
		Set objEmail = Server.CreateObject("CDO.Message")
		
		objEmail.To = ToEmail
		objEmail.bcc = "anthony@reflectorinteractive.com"

		objEmail.From = FromEmail
		objEmail.Subject = subject
		objEmail.TextBody = strEmailMessage
		objEmail.Send

		Set objEmail = Nothing
		
' send to constant contact




response.redirect("/contact/?status=thanks")
else 
%>
Your code word was incorrect, please click back on your browser
<% end if %>