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