%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Code design, Copyright 2006, All right reserved - Causes, Eva Jaatmaa 'Get values from this form wholename = TRIM (Request ("wholename")) email = TRIM (Request( "email" )) phone = TRIM (Request( "phone" )) address = TRIM (Request( "address" )) bedroom = TRIM (Request( "bedroom" )) bathroom = TRIM (Request( "bathroom" )) acres = TRIM (Request( "acres" )) sendmail = Request ("sendmail") comments = Request( "comments" ) ALLOK=(wholename<>"") AND (email<>"") AND (phone<>"") AND (address<>"") IF (ALLOK) AND (sendmail<>"") THEN 'Set parameters for how to send mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "pilsner.2gaap.net" Mail.Subject = "Contact from Muren WebSite and List Your Home" Mail.From = "michaelm@mris.com" Mail.FromName = "The Mike Muren Team" Mail.AddAddress "michaelm@mris.com" sMailBody = sMailBody & "Would like to list this property: " & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & "Name:" & wholename & vbNewLine sMailBody = sMailBody & "Phone:" & phone & vbNewLine sMailBody = sMailBody & "Email: " & email & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & "Address: " & address & vbNewLine sMailBody = sMailBody & "No of bedrooms: " & bedroom & vbNewLine sMailBody = sMailBody & "No of bathrooms: " & bathroom & vbNewLine sMailBody = sMailBody & "Acres: " & acres & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & "Comments:" & comments & vbNewLine & vbNewLine sMailBody = sMailBody & "End of Message from The Mike Muren Team Web site" Mail.Body = SMailBody Mail.Send %>

|
|
|
|||||||||
The Mike Muren Team Office: (800) 727-7653 Fax: (301) 694-3168 Copyright © 2006-08 The Mike Muren Team | Disclaimer | Privacy Policy & Terms of Use | Site Map |