Sub Application_OnStart
  Application("DNS") = "OC"
  Application("UserName") = "Admin"
  Application("Password") = "twoje_haslo"
  Application("AllowNew") = "Yes"
  Application("AllowEnroll") = "Yes"
  Application("Path2Logo") = "./images/logo.gif"
  Application("AllowDrop") = "No"
  Application("ChatMode") = "External"
End Sub
