<%countfile=server.mappath("\counter\count\count.txt")
response.write countfile
set fs=server.createobject("Scripting.FileSystemObject")
if fs.fileExists(countfile) then
set file=fs.openTextFile(countfile,8,True,0)
else
set file=fs.CreateTextFile(countfile,false,false)
end if
%>