<%@ Language=VBScript %> <%Option Explicit%> <% Dim strFirstName Dim strLastName Dim strPhone Dim strEmail Dim strAddress Dim strMessage Dim smtpserver Dim mailFromAddress Dim strMsgHeader Dim strMsgInfo DIm strMsgFooter Dim Mailer Dim strbody strMessage = "" strFirstName = Request.Form("txtFirstName") strLastName = Request.Form("txtLastName") strPhone = Request.Form("txtPhone") strEmail = Request.Form("txtEmail") strAddress = Request.Form("txtAddress") If Request.Form("FormAction") = "Submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Waitakere Architects" Mailer.FromAddress= strEmail Mailer.ContentType = "text/html" Mailer.RemoteHost = "wal" Mailer.AddRecipient "Recipient", "info@waitakerearchitects.co.nz" Mailer.Subject = "Contact Information" strMsgHeader = " " strBody = "

Waitakere Architects Web Site Contact Information

" strBody = strBody & "First Name : " & strFirstName & "
" strBody = strBody & "Last Name : " & strLastName & "
" strBody = strBody & "Phone : " & strPhone & "
" strBody = strBody & "Email : " & strEmail & "
" strBody = strBody & "Address : " & strAddress & "
" strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strBody & strMsgFooter If Mailer.SendMail then strMessage = "Thank you for your contacting us. We will be in touch shortly" Else Response.Write "Mail send failure. Error was " & Mailer.Response End If End If %>

Please feel free to fill in the contact form below or email us: info@waitakerearchitects.co.nz <%If Not strMessage = "" Then%> <%=strMessage%> <%End If%> First Name Last Name Phone Email Address <%=strAddress%> ">