<% Dim confirm, ErrorMessage confirm = false ErrorMessage = "" IF Request.Form("confirm") = "true" THEN confirm = true Message = "Message from davefocker.com:" & VbCrLf & VbCrLf Message = Message & "Name: " & Request.Form("contact_name") & VbCrLf Message = Message & "Email: " & Request.Form("contact_email") & VbCrLf& VbCrLf Message = Message & Request.Form("message") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "davefocker.com" Mailer.FromAddress= "info@davefocker.com" Mailer.RemoteHost = "mail.arachna.co.nz" Mailer.AddRecipient "Clem","clem@arachna.co.nz" Mailer.AddRecipient "Tyrax","davefocker@hotmail.com" Mailer.AddRecipient "Memo","memo@abstractTV.com" Mailer.Subject = "Davefocker.com Message" Mailer.BodyText = Message if Mailer.SendMail then else ErrorMessage = "Mail send failure. Error was " & Mailer.Response end if OK = true END IF %> <%= ErrorMessage %> <% IF confirm THEN %> <% ELSE %> <% END IF %> <% ELSE %> <% END IF %>

					<% IF Request.QueryString("m") = "mailinglist" THEN %>I want to know about when gigs, special events and releases are happening. Put me on the mailing list. <% END IF %>
		<% IF confirm THEN %><% ELSE %><% END IF %>
			<% IF confirm THEN %>