Home Zone Rent to Own

Contact Us

<%IF Request("DoAction") = "SendMail" Then%>

Your message has been sent, thank you!

<%End If%>
<%IF Request("DoAction") = "SendMail" Then Dim msgout Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "smtp.cox.net" 'change this according to your server set up .Fields.Item(sConfURL & "smtpserverport") = 25 'change this according to your server set up .Fields.Update end with ' Message to send Text = "" dip_bg = "#000000" lt_bg = "#E8E8E8" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "" Text = Text & "
Name: " & MID(Request("NAME"),1,25) & "
Email: " & Request("Email") & "
Company: " & Request("COMPANY") & "
Address: " & Request("ADDRESS") & "
City, State, Zip: " & Request("CITY") & ", " & Request("STATE") & " " & Request("ZIP") & "
Email: " & Request("EMAIL") & "
Phone " & Request("PHONE") & "
Customer wishes to be contacted by: " & Request("CONTACT") & "
Comments or Questions:" & Request("COMMENTS") & "
How customer found us:" & Request("FINDUS") & "
" with oCdoMail .From = "donotreply@HomeZoneRentToOwn.com" .To = "greg@getezmoney.com" .Subject = "Contact us form Submitted" .HTMLBody = Text .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing End If %> Name:
Company:
Address:
City: State: Zip:
Email Address:
Phone:

How would you like to be contacted?
E-mail
Phone
Send Me Information
Other - See Comments

How did you find out about us?

Friend
Web Surfing
Another Link
Other

If you have any questions or comments, please don't hesitate to let us know:

Copyright 2008  Home Zone Rent To Own.  View our Privacy Policy.