<% 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 %> Eid Stamp Won
<% 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

Thanks to the Muslims who participated in Linns Survey.

Linn's 2001 Stamp Popularity Poll

Best Design Worst Design Most Important Least Necessary
Eid Hanukkah Eid Hanukkah
14174 2239 13495 1864
Favorite stamp of 2001: Eid, 12585

 

 


 

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