<% Dim SenderEmail, Message, referer referer=request.servervariables("http_referer") If Len(Request.Form("SendersEmail")) > 0 Then Dim objMail,FriendEmail sBody = "This page, " & referer & " has been recommend by " & Request.Form("SendersEmail") & vbCrLf & " -- Message -- " & vbcrlf & Request.Form("Message") I=0 Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "Info@MuslimAccess.Com" objMail.Subject = "A Page Sent To You!" objMail.Importance=1 objMail.Body = sBody objMail.To = FriendEmail objMail.Send() End If I=I+1 Loop Set objMail = Nothing Response.write "

Thank you for spreading the word." Else End If %> MuslimAccess.com Islaamic Quizzes
 
 
 
Islaamic Quizzes
Al Qur'aan Al Sunnah Angels
About Islaam Al Seerah Islaamic Dates