<% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = True 'Dimension veriables Dim strOpenFilePath 'Get the open file path strOpenFilePath = strOpenFileFolderPath 'Change \ for / strOpenFilePath = Replace(strOpenFilePath, "\", "/'", 1, -1, 1) %> Open File <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(vbCrLf & "") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtOpen %>

<% = strTxtPath %>: <% = strTxtFileName %>:
<% = strTxtFileName %>: <% = strTxtPreview %>: