<%
DIM fso, f
SET fso = CreateObject("Scripting.FileSystemObject")
SET f = fso.OpenTextFile(Server.MapPath("Blocks-3_2_0.txt"), 1)
DIM strTemp
DO WHILE f.AtEndOfStream = False
    strTemp = f.ReadLine
    Response.Write strTemp & "
" LOOP 'DO WHILE f.AtEndOfStream = False f.Close %>
* From Unicode online data, http://www.unicode.org/Public/3.2-Update/Blocks-3.2.0.txt. <% Call FileLastModified() %>