Reading the file...
<% on error resume next dim fso,myfile,fname,getline set fso = createobject("Scripting.FileSystemObject") fname = server.mappath("data.txt") response.write ("file..." & fname)
set myfile = fso.opentextfile(fname,1,true)
do while not myfile.atendofstream
getline = myfile.readline()
if instr(getline,"##") = 0 then
response.write ("
" & getline)
else
response.write("
")
end if
loop
myfile.close
%>