Montgomery Properties Ranch
 
 
Montgomery Properties Ranch - Video Gallery
Montgomery Properties Ranch - Photo Gallery

Contact Montgomery Properties Ranch

Don Montgomery
Montgomery Properties Ranch
Office: 817.444.2516

Fill out the form below to contact Montgomery Properties Ranch by email.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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("name"))) & "|WA|" & cStr(cStr(Request.Form("email"))) & "" MailSubject = "MPR Hunts - Website Contact" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mailhub.registeredsite.com") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"dmontgomery@burmont.com") end if 'Attachment Entries 'BCC Entries 'CC Entries set WA_MailObject = WAUE_AddCC(WA_MailObject,"dave@crosstimbersmarketing.com") 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Street: " MailBody = MailBody & cStr(Request.Form("street")) 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 & "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 ((cStr(Request.Form("Submit")) <> "")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry 'Send Mail All Entries WA_Universal_Email_1_SendMail("") if ("formresults.php"<>"") then Response.Redirect("formresults.php") end if end if %> Untitled Document

Contact Information

Address Optional:

Questions or Comments

Send Questions or Comments