| |
|||||||||||||||||||||||
|
<%
Dim FileName
FileName = trim(lcase(Request("FN")))
If (FileName = "") then
FileName = "intro2.asp"
End if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath(FileName))=true) Then
Set f=fs.OpenTextFile(Server.MapPath(FileName), 1)
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
loop
f.Close
Set f=Nothing
Set fs=Nothing
Else
Response.Write(" ") Response.Write(" Page Under Construction! ") End if %> |
||||||||||||||||||||||
|
|||||||||||||||||||||||
Best Viewed using Internet Explorer on 800 X 600 Resolution. |