<% '********************************************************** ' Subroutine to read a file ' VP-ASP 5.00 ' May 17, 2003 '********************************************************* Sub ShopReadFile (filename,ReadArray,readcount) on error resume next dim whichfile, rc, fsobj,recordobj dim mytext readcount=0 whichfile=server.mappath(filename) set fsObj = Server.CreateObject("Scripting.FileSystemObject") set RecordObj= fsObj.OpenTextFile(whichfile, 1, False) If err.number > 0 then rc=4 fsObj.close set fsObj=nothing exit sub end if ShopReadARecord RecordObj, MyText, rc 'Response.write Server.HTMLEncode(mytext) & "
" Do while rc=0 readarray(readcount)=mytext readcount=readcount+1 shopReadARecord RecordObj, MyText, rc ' Response.write Server.HTMLEncode(mytext) & "
" Loop set RecordObj = nothing set fsObj = nothing rc=0 End Sub Sub shopReadArecord(RecordObj, record, rc) if RecordObj.AtEndofStream then rc=4 exit sub end if record = RecordObj.readline 'debugwrite server.htmlencode(record) rc=0 end sub Sub ShopFileExists(filename, rc) dim fso, newfile newfile=server.mappath(filename) Set fso = server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(newfile) Then rc=0 else rc=4 end if set fso=nothing end sub %>