Application.Lock
Application("newip")=
  Request("Remote_Addr")
Application.Unlock