Contact The Mike Muren Team - Contact Mike Muren

<%@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" )) contactabout = TRIM (Request( "contactabout" )) sendmail = Request ("sendmail") comments = Request( "comments" ) ALLOK=(wholename<>"") AND (email<>"") AND (phone<>"") IF (ALLOK) AND (sendmail<>"") THEN 'Set parameters for how to send mail - object depends on what you use, replace xxx Set Mail = Server.CreateObject("xxx.MailSender") 'replace mailhost below with your mailhost Mail.Host = "mailhost" Mail.Subject = "Contact for Mike Muren from the WebSite" Mail.From = "michaelm@mris.com" Mail.FromName = "The Mike Muren Team" Mail.AddAddress "michaelm@mris.com" sMailBody = sMailBody & "Contact for Mike Muren: " & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & "Name:" & wholename & vbNewLine sMailBody = sMailBody & "Phone:" & phone & vbNewLine sMailBody = sMailBody & "Email: " & email & vbNewLine sMailBody = sMailBody & "Address: " & address & vbNewLine sMailBody = sMailBody & vbNewLine sMailBody = sMailBody & "Contact About: " & contactabout & 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 %> Contact The Mike Muren Team - Contact Mike Muren

Thank you!

Thank you for contacting the Mike Muren Team - Mike Muren will contact you shortly.

<% ELSE submitpage = Request.ServerVariables( "SCRIPT_NAME" ) %> The Mike Muren Team - Contact Mike Muren

Contact Mike Muren

<% wholename=Server.HTMLEncode( wholename ) if (wholename="") THEN %> <%ELSE %> <% END IF%> <% address=Server.HTMLEncode( address ) if (address="") THEN %> <%ELSE %> <% END IF%> <% email=Server.HTMLEncode( email ) if (email="") THEN %> <%ELSE %> <% END IF%> <% phone=Server.HTMLEncode( phone) if ( phone="") THEN %> <%ELSE %> <% END IF%> <% comments=Server.HTMLEncode( comments) if ( comments="") THEN %> <%ELSE %> <% END IF%>

Use this form to schedule a showing, about moving or with a general question for Mike Muren.

* Contact us about: <% FUNCTION SELECTED( firstVal, secondVal ) IF cSTR( firstVal ) = cSTR( secondVal ) THEN SELECTED = " SELECTED " ELSE SELECTED = "" END IF END FUNCTION %>

* Name: Name:

Address: Address:

* Email: Email:

* Phone: Phone:

Comments: Comments:

<% END IF %>