<% 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 %> Islamic Articles
<% Response.Buffer = True Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.muslimsdirectory.com/bannerads/bannersections/muslimaccessalltop.php", False xml.Send Response.Write xml.responseText Set xml = Nothing %>
 
Home Qur'aan Sunnah Islamic Resources Muslim Businesses Community Events Our Services
Contact Us
Search Site

Articles on Muslim Women

War on Terrorism and 9-11

Atrocities

Islamophobia

Answering for Islaam

Muslim Character

Converts / Reverts

Ummah - Brotherhood & Sisterhood

Eid, Ramadhan & Fasting

Fastest Growing Religion in the USA

Qur'aan & Bible

Slavery

Ibadat / Worship

Jihad

Politics

Media Related

Marriage / Relationships

Food Products

Janazah / Funeral

Angels

- - - Miscellaneous - - -

 


 

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