<%
DIM fso, f
SET fso = CreateObject("Scripting.FileSystemObject")
SET f = fso.OpenTextFile(Server.MapPath("ANSI_X3_4-1986"), 1)
DIM strTemp
DO WHILE f.AtEndOfStream = False
    strTemp = f.ReadLine
    strTemp = Replace(strTemp,"<","<")
    strTemp = Replace(strTemp,">",">")
    Response.Write strTemp & "
" LOOP 'DO WHILE f.AtEndOfStream = False f.Close %>
* ANSI X3.4-1986 : The formal standard ASCII by ANSI often referred to as US-ASCII. <% Call FileLastModified() %>