<% 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 %> Shahada in Spanish
<% 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

Shahada in Spanish

Soy testigo que no alabamos a nadie mas digno que Dios, El que no tiene socio y que Muhammed es el ultimo y el sello de los profetas.

 


 

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