|
<%
FileToReadIn="intro.htm"
If Request.QueryString("Page")<>"" Then
FileToReadIn=Request.QueryString("Page")
End If
FileDot=len(FileToReadIn)-4
FileToRead=mid(FileToReadIn,1,FileDot) + Session("lang") + ".htm"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
whichfile=server.mappath(FileToRead)
Set f=fs.OpenTextFile(whichfile, 1, False)
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%>
|
|