<% myfullpath=server.mappath("resume.txt") Set filesystem = CreateObject("Scripting.FileSystemObject") if (filesystem.fileexists(myfullpath)) then 'response.write " " Set thisfile = filesystem.OpenTextFile(myfullpath, 1, False) counter=0 do while not thisfile.AtEndOfStream counter=counter+1 thisline=thisfile.readline response.write thisline & " " loop thisfile.Close end if %>