<%@ Language=VBScript %> <%Option Explicit Response.Expires =0 %> Africa Connect - Tell A Friend <% If Request("bFlag") ="1" then Dim myMail, Body Dim sEmailTo,sSubject,sBody Dim objConn, strSQL sEmailTo = Request("txtEmailTo") sSubject = Request("txtSubject") sBody = Request("txtBody") Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.To = sEmailTo myMail.From = "webmaster@africaconnect.co.za" myMail.Subject = sSubject myMail.BodyFormat = 0 myMail.MailFormat =0 Body = "" Body = Body & "Africa Connect" Body = Body & "" Body = Body & "" Body = Body & ""& vbCrlf Body = Body & "
Message for you:" & sBody & "
" Body = Body & "



" Body = Body & "" Body = Body & "
Important Email Information
The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access to this email " Body = Body & "by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be " Body = Body & "taken in reliance on it, is prohibited and may be unlawful. If you are not the intended addressee please contact the sender and dispose of this e-mail." Body = Body & "
" myMail.Body = Body myMail.Send Set myMail = nothing Response.Redirect "ContentPage.html" Else%>

Tell A Friend
Please enter the Information which you would like to send it to your Friend.

Email To :    
Subject :    
Message for Friend :  
Kindly check your information again before submitting.
"Please click only once"
 
<%End if%>