<% If request("SendMail") <> "" Then Message = "" DefEmail = "InformationRequest@libertyhomesok.com" sTo = "dusty@libertyhomesok.com" sFrom = DefEmail sSubject = "Liberty Homes Information Request" For Each X In Request.Form Session(X) = Cstr(Request.Form(X)) Next sMsg = "Name: " & Session("Name") & vbcrlf sMsg = SMsg & "Address: " & Session("Address") & vbcrlf sMsg = SMsg & Session("City") & ", " & Session("State") & " " & Session("Zip") & vbcrlf sMsg = SMsg & "Email: " & Session("Email") & vbcrlf sMsg = SMsg & "Phone: " & Session("Phone") & vbcrlf sMsg = SMsg & "Best Time To Call: " & Session("Best_Time_To_Call") & vbcrlf sMsg = SMsg & "Currenlty: " & Session("Currently") & vbcrlf If Trim(Session("Referral_Other")) = "" Then sMsg = SMsg & "Referral: " & Session("Referral") & vbcrlf Else sMsg = SMsg & "Referral: " & Session("Referral_Other") & vbcrlf End If If Trim(Session("Other_Move_In")) = "" Then sMsg = SMsg & "Move In: " & Session("Move_In") & vbcrlf Else sMsg = SMsg & "Move In: " & Session("Other_Move_In") & vbcrlf End If sMsg = SMsg & "Build Where: " & Session("Build_Where") & vbcrlf sMsg = SMsg & "Realtor: " & Session("Realtor") & vbcrlf sMsg = SMsg & "Price Range: " & Session("Price_Range") & vbcrlf sMsg = SMsg & "Square Footage: " & Session("Footage") & vbcrlf sMsg = SMsg & "Contact By: " & Session("Contact_By") & vbcrlf sMsg = SMsg & "Comments: " & vbcrlf & Session("Comments") & vbcrlf Result = SendMail(sFrom,sTo,sSubject,sMsg) If Result <> 0 Then Message = "The mail message could not be delivered to the SMTP server.

Error Code: " + CStr(Result) + "
" Else Response.redirect "ThankYou.htm" Response.end End If End If %> Liberty Homes Contacts
     
 








Contact Us

Thank you for your interest in Liberty Homes!  Let Liberty Homes show you the advantages of a custom built home.  "Custom Freedom", its the way we do business!

Contact Information

Telephone:
     Cell: 405.409.3291
     Fax: 405.794.9335

Postal Address:
     3504 Churchill Rd.
     Oklahoma City, OK 73165

Email:
     Dusty@libertyhomesok.com
 


[ About Us ] [ Our Homes ] [ Communities ] [ Design Center ] [ Financing ]
[ Helpful Links ] [ Contact Us ] [ Home ]

Copyright © 2007 Liberty Homes, Inc.
Developed By Right Angle Technology
<% '************** SendMail Function: Returns TRUE if no errors *********** Function SendMail(sFrom,sTo,sSubject,sMessage) SendMail = 0 On Error Resume Next Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = sFrom Mail.To = sTo Mail.Subject = sSubject Mail.Body = sMessage ' ************************* RICH TEXT EMAIL FLAGS ************************* ' If you wish to send HTML-Coded emails (RichText), use the next two lines ' of code. '************************************************************************** ' Mail.BodyFormat = 0 ' Mail.MailFormat = 0 '************************************************************************** Mail.Send lErr = Err.Number if lErr <> 0 then SendMail = lErr Exit Function End if End Function %>