<% 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 %> The Martinson Group

The Martinson Group
The Martinson Group
Home
About
Services
Portfolio
On the Boards
Contact

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.

Company

Title

Address

Address two

State

Zip

Phone

Fax
Please enter your email address.
Email
 

Comments
 
   

 

NJ Web Design - Flying Turtle Studio - 2007