% const fread=1 spat=Server.mappath("/hitcnt.txt") Set fsy = CreateObject ("Scripting.FileSystemObject") Set Cfil = fsy.OpenTextFile(spat, fread) svisits = Trim(Cfil.Readline()) Cfil.Close %>