[LaGor]

Почему бы тебе не сделать так?
в global.asa

Sub Session_OnStart()
  Session.Timeout=5
  Application.lock
...
  Application("UsID")="1234"
...
  Application.unlock
End Sub

а в самом файле

Dim UsID
...
UsID=Application("UsID")