%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request("mail") = "true" then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.BodyFormat = 1 objCDO.To = "contact@smartlpi.com" objCDO.From = "system@smartlpi.com" objCDO.Subject = "Contact Form Submitted From www.smartlpi.com..." Dim txt txt = "Someone has filled out the contact form on www.smartlpi.com..." & vbcrlf & vbcrlf txt = txt & "Name: " & request("name") & vbcrlf txt = txt & "Correspondence Address: " & request("cor_address") & vbcrlf txt = txt & "Office Telephone: " & request("tel_office") & vbcrlf txt = txt & "Home Telephone: " & request("tel_home") & vbcrlf txt = txt & "Fax: " & request("fax") & vbcrlf txt = txt & "Mobile: " & request("mobile") & vbcrlf txt = txt & "Email: " & request("email") & vbcrlf txt = txt & "------------------------------------------------" & vbcrlf txt = txt & "Services A: " & request("services_1") & vbcrlf txt = txt & "Services B: " & request("services_2") & vbcrlf txt = txt & "Services C: " & request("services_3") & vbcrlf txt = txt & "Services D: " & request("services_4") & vbcrlf txt = txt & "Services E: " & request("services_5") & vbcrlf txt = txt & "Budget Range A: " & request("budget_range_a") & vbcrlf txt = txt & "Budget Range B: " & request("budget_range_b") & vbcrlf txt = txt & "------------------------------------------------" & vbcrlf txt = txt & "Comments: " & request("comments") & vbcrlf objCDO.Body = txt objCDO.Send set objCDO = nothing end if %>
|
||||||||||||||
|
|
<% if NOT request("mail") then %> landmark property investments have a personable and knowledgeable team
who can answer Thank you for contacting us we will get back to you shortly... <% end if %> |
|||||||||||||