<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("email"))) & "" MailSubject = "Contact Form" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("smtp.appliedi.net") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("firstname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("lastname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Company: " MailBody = MailBody & cStr(Request.Form("company")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title: " MailBody = MailBody & cStr(Request.Form("title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("address")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address 2:" MailBody = MailBody & cStr(Request.Form("address2")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Fax: " MailBody = MailBody & cStr(Request.Form("fax")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("comments")) MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if (((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0))) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@themartinsongroup.com") 'Send Mail All Entries if ("contactconfirm.asp"<>"") then Response.Redirect("contactconfirm.asp") end if end if %>

Thank you for your interest in The Martinson Group. Please feel free to contact us with your questions or comments, by filling out the form below. Or you may contact us by phone by calling 610.252.9030. First Name Last Name Company Title Address Address two City State Zip Phone Fax Please enter your email address. Email   Comments

NJ Web Design - Flying Turtle Studio - 2007