<% Dim strURL strURL = Request.QueryString("URL") Dim strDir, strFileName strDir = Request.ServerVariables("APPL_PHYSICAL_PATH") Response.Write strDir strFileName = Replace(strURL,"/","\") strFileName = strDir & strFileName Const ForReading = 1 Dim objFSO, objTextStream Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTextStream = objFSO.OpenTextFile(strFileName, ForReading) Response.Write "
" Response.Write "

    " &  objTextStream.ReadAll & "

" Response.Write "" objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing %>