%@LANGUAGE="VBSCRIPT"%>
<% strURL = Request.ServerVariables("SCRIPT_NAME") %>
<%
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%>
|
|
|
|
|
|
|
|
|
©
Muslimpath.com All rights reserved |
Declaimer
|
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
%>