<% Dim objFile,objFso Dim strFileName, strPath dim strPageContent strFileName = "Meta_#!*INCLUDETITLEFILENAME*!#" strPath = Server.MapPath("/fightercombat/metadir") strPath =strPath & "/" & strFileName '' Response.Write strPath ''Response.Write Request.ServerVariables("PATH_INFO") Set objFso = Server.CreateObject("Scripting.FileSystemObject") if objFso.FileExists(strPath) Then Set objFile = objFso.OpenTextFile(strPath) strPageContent = objFile.ReadAll Response.Write strPageContent else ''Response.Write "Not Exist" end if %>

Home

More Links

Resources

Articles

<% Dim objFile1,objFso1 Dim strFileName1, strPath1 dim strPageContent1 strFileName1 = "_#!*INCLUDEFILENAME*!#" strPath1 = Server.MapPath("/fightercombat/contentdir") strPath1 =strPath1 & "/" & strFileName1 Set objFso1 = Server.CreateObject("Scripting.FileSystemObject") if objFso1.FileExists(strPath1) Then Set objFile1 = objFso1.OpenTextFile(strPath1) strPageContent1 = objFile1.ReadAll Response.Write strPageContent1 end if %>

#!CATECODE!#

#!*MANAGELINKS*!#

Home