<% 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.BCC = "omar@muslimaccess.com" objMail.Send() End If I=I+1 Loop Set objMail = Nothing Response.write "

Thank you for spreading the word." Else End If %> Search Islam
 
Home Qur'aan Sunnah Islamic Resources Muslim Businesses Community Events Our Services
Contact Us
Search Site

 

 

 

 

Search Page Loading...



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