<%Dim Visits=0 Application=Lock() Visits=Visits+1 Application=UnLock() %>