<%=villareference%> Email to Friend

<%@LANGUAGE="VBSCRIPT"%> <% success=0 vid=request("vid") friendsemail = trim(request("friendsemail")) yourname = trim(request("yourname")) comments = trim(request("comments")) errorsoccured=0 yournameerror=0 friendsemailerror=0 if request("Submit") ="Submit" then if yourname ="" then yournameerror=1:errorsoccured=1 if friendsemail ="" then friendsemailerror=1:errorsoccured=1 if errorsoccured=0 then '************************************** LineSplit = vbcrlf strBodyContent = strBodyContent & "Hello" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "This is a message from "&yourname&" sent via the Carte Blanche Villas Website. " strBodyContent = strBodyContent & LineSplit if comments ="" then strBodyContent = strBodyContent & yourname &" thinks that you may be interested in this property." strBodyContent = strBodyContent & LineSplit else strBodyContent = strBodyContent & yourname &" thinks that you may be interested in this property and sends" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "the following comments:" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "-------------------------------------------" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & comments strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "-------------------------------------------" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & LineSplit end if strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & trim(website_address)&"/showproperty.asp?vid="&vid strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "Regards." strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "_________________________________" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "Carte Blanche Villas" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "27 Albert Square," strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "London SW8 1DA" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "Tel: +44 (0)20 77 359923" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "Email: info@carteblanchevillas.com" strBodyContent = strBodyContent & LineSplit strBodyContent = strBodyContent & "Website: http://www.carteblanchevillas.com" strBodyContent = strBodyContent & LineSplit '************************************** '// Commented out by R Lloyd, changed CDONTS object to ASPMail 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'objCDOMail.From = from_email 'objCDOMail.To = friendsemail 'objCDOMail.Subject = "Carte Blanche Villas: Recommendation from "&Yourname 'objCDOMail.Body = strBodyContent 'objCDOMail.MailFormat = 0 ' CdoMailFormatMime 'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) 'objCDOMail.Send 'Set objCDOMail = Nothing '************************************** Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.Encoding = 1 Mailer.Wordwrap = True Mailer.FromName = "Carte Blanche Villas" Mailer.FromAddress = from_email Mailer.RemoteHost = "mail.brwebsites.com" Mailer.AddRecipient "", friendsemail Mailer.Subject = "Carte Blanche Villas: Recommendation from "&Yourname Mailer.BodyText = strBodyContent Mailer.SendMail Set Mailer = Nothing '************************************** success=1 end if end if %> <%=villareference%> Email to Friend <%if success=0 then%> <%end if%>

Email villa details to a friend

<%if success=1 then%> <%else%> <%if errorsoccured= 1 then%> <%end if%> <%end if%>

Thankyou <%=firstname%> Click here to close this window.
	<%=villalocation%>
	Please check fields marked red!
color="#ff0000" <%end if%>>Your Name
Your Comments	<%=comments%>
color="#ff0000" <%end if%>>Friends Email color="#ff0000" <%end if%>> Address