<% ' Created on: 02/04/2007 %>

Thank you - the system is processing your request. This will just take a moment, and you will see a new page when the email has been sent to your friends. <% Dim Url Dim Name Dim EmailFrom Dim FName Dim EmailTo Dim EmailSubject Dim Message Url = request.servervariables("http_referer") Name = Trim (Request.Form("Name")) EmailFrom = Trim (Request.Form("EmailFrom")) FName = Trim (Request.Form("FName")) EmailTo = Trim (Request.Form("EmailTo")) EmailSubject = "Recomended Page" Message = Trim (Request.Form("Message")) Dim Body Body = Body & "Hi " & FName & "," & VbCrLf Body = Body & VbCrLf Body = Body & Name & " has recomended this page to you. " & VbCrLf Body = Body & Url & VbCrLf Body = Body & VbCrLf Body = Body & "_________________________________________" & VbCrLf Body = Body & VbCrLf Body = Body & "Personal Message:" & VbCrLf Body = Body & "_________________________________________" & VbCrLf Body = Body & Message & VbCrLf Body = Body & "_________________________________________" & VbCrLf Body = Body & "Success Matters" & VbCrLf Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = EmailFrom mail.Subject = EmailSubject mail.Body = Body mail.Send Response.Redirect("tafsuccess.htm ") %>

(place holder)

Return to top       Return to Home Page

This article © Linda Faber 2006-2009.