<% 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 %> Online Islamic Books
 
Home Qur'aan Sunnah Islamic Resources Muslim Businesses Community Events Our Services
Contact Us
Search Site

Online Islamic Books

 

Muslim Authors

 

 


 

Home Qur'aan Sunnah Islamic Resources Muslim Businesses Community Events Our Services
Contact Us
Search Site