<% Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f, ts, Matter, filename, Page, errorpage If Request("ID")="" Then Page="main.htm" Else Page="" & Request("ID") & ".htm" End If %> MuslimPath.com > Part : Special Page >

 

 

<% filename= Server.MapPath(Page) errorpage= Server.MapPath("under.htm") Set fs = CreateObject("Scripting.FileSystemObject") if fs.fileExists(filename)= true then Set f = fs.GetFile(filename) else Set f = fs.GetFile(errorpage) End if Set ts = f.OpenAsTextStream(ForReading, Tristatefalse) ' While ts.AtEndOfStream=False Matter= Correct(ts.ReadAll) 'Wend Response.Write Matter %>

         

 

 

<% If Page="main.htm" then %> <% Else %> <% End IF%>

 

<% 'declare your variables dim varad, objAd 'create an instance of the Rotator object and assign variable Set objAd = Server.CreateObject("MSWC.AdRotator") 'make sure the page will open up in a new browser objAd.TargetFrame="TARGET=_BLANK" 'call the GetAdvertisement method and assign all details to variable varAd = objAd.GetAdvertisement("/advt/adrotator.txt") 'display the banner and its details Response.Write varAd %>

To advertise here please contact : infomuslimpath@gmail.com

 © Muslimpath.com All rights reserved Total Visitors : Powered By

<% Function Correct(mMatter) 'mMatter= Replace(mMatter, chr(115)& chr(173) , "WvsS") 'mMatter= Replace(mMatter, chr(115)& chr(173), "WvtS") 'mMatter= Replace(mMatter, chr(173), chr(228)) ' '"WvS") mMatter= Replace(mMatter, "ä", "dd") mMatter= Replace(mMatter, chr(173), "WvS") 'mMatter= Replace(mMatter, "-", "") 'mMatter= Replace(mMatter, "v", "") mMatter= Replace(mMatter, "charset=windows-1252", "charset=x-user-defined") 'mMatter= Replace(mMatter, "httpequiv", "http-equiv") Correct=mMatter End Function %>