<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim yourname, youremail, emailaddress, email, yourmessage, metoo, n, submit, s, objMail submit = request("submit") if submit = "GO" then yourname = request("name") youremail = request("youremail") emailaddress = request("emailaddress") yourmessage = request("yourmessage") metoo = request("metoo") if metoo = "yes" then emailaddress = emailaddress & "," & youremail 'Add the users email onto the list. email = Split(emailaddress, ",") For n = LBound(email) To UBound(email) 'Send an email to each address. Set objMail = Server.CreateObject("CDONTS.Newmail") s = "" s = s & "This is an automatic email from the Berlin Property for Sale website. " & yourname & " recommends that you visit us. The email has been sent at " & yourname s = s & "'s request. We did not send it ourselves. We do not store your email address or give it to third parties. You can contact " & yourname & " at " & youremail & "." & vbcrlf & vbcrlf s = s & "These are " & yourname & "'s comments:" & vbcrlf & vbcrlf s = s & yourmessage & vbcrlf & vbcrlf s = s & "Berlin Property for Sale is a web resource for UK and Irish investors looking to invest in Berlin property." s = s & " We supply bottles of toner and where neccesary starter toolkits to make refilling cartridges easy. Laser toner cartridges can be simply " s = s & "We hope you will visit us at www.Property-Berlin.co.uk" & vbcrlf & vbcrlf s = s & "With our best wishes," & vbcrlf & vbcrlf s = s & "Berlin Property for Sale" objMail.To = email(n) objMail.Subject = "Berlin Property for Sale is a web resource for Berlin investors." objMail.From = "Tom@Property-Berlin.co.uk" objMail.Body = s objMail.Send Set objMail = Nothing Next response.redirect("tellyourfriendsresponse.htm") end if %> Berlin Property for Sale UK and Irish investor web resource. Untitled Document