Muslim Internet Service

<% 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("CDO.message") objMail.From = "info@muslimaccess.com" objMail.Subject = "A Page Sent To You!" objMail.Importance=1 objMail.TextBody = 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 %> Muslim Internet Service

<% 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 %>

	<% 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 %>