<%		emailaddy= Request.querystring("From")
	if emailaddy="" then
		Response.Redirect "error.asp"
	end if
		Set Mail = Server.CreateObject("Persits.MailSender")
		Set arrTo = Session("arrTo")
		Mail.Host = "mail.powerhousesound.com"
		Mail.From = emailaddy
		Mail.AddAddress "imailsrv@powerhousesound.com"
		Mail.Subject = " "
		Mail.Body = "Subscribe list " 
		On Error Resume Next
		if not Mail.Send Then
			Response.Redirect "freemail_error.asp"
		End If
		Mail.Reset
		On Error Goto 0

%>
<%		Set Mail = Server.CreateObject("Persits.MailSender")
		Set arrTo = Session("arrTo")
		Mail.Host = "mail.powerhousesound.com"
		Mail.From = "newsletter@powerhousesound.com"
		Mail.AddAddress "fprincipato@powerhousesound.com"
		Mail.Subject = "Subscription Notification"
		Mail.Body = "This person has sent a subscription confirmation: " & Request.querystring("From") 

		On Error Resume Next
		if not Mail.Send Then
			Response.cookies("did_sign_up")	=	"yes"
			Response.cookies("did_sign_up").expires = Now + 120
			Response.Redirect "thank_you.htm"
		Else
			Response.cookies("did_sign_up")	=	"yes"
			Response.cookies("did_sign_up").expires = Now + 120
			Response.Redirect "thank_you.htm"
		End If
		Mail.Reset
		
		On Error Goto 0
%>