<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
' maybe a good idea to empty the shoppingbaskets and sessionforms tables here

  Application("ConnectionString") = "DSN=MySQL_cslhbos;"
    ' (SS,18/5/04) to disable password set it to "" (blank) in following '
  Application("DevelopmentPassword") = ""
  
  Application("MaxSpecialOffers") = 3
  
  Application("WebsiteURL") = "http://www.conferencesearch.co.uk/hbos" ' used on emails and link back to site 
  Application("MailServer") = "mail.itpartnership.com"
  
  Dim LMainCompanyEmailAddress, LITPTestEmailAdress
  LMainCompanyEmailAddress = "sales@conferencesearch.co.uk"
  LITPTestEmailAdress = "surinder@itpartnership.com"
  
  Application("ContactEmailAddress") = LMainCompanyEmailAddress 
  Application("ContactEmailBCC1") = LITPTestEmailAdress
  Application("ContactEmailBCC2") = "jeets@itpartnership.com"
  Application("ContactEmailFromAddress") = LMainCompanyEmailAddress  
      
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
  
  Session.Timeout = 180 ' time out after three hours of non-use
  
  ' Set the server locale to UK, mainly to prevent date problems (day and month being reversed)
  Session.LCID = 2057
  
  ' (SS,18/5/04) to allow password protection during development stage '
  ' used in conjunction with Application("DevelopmentPassword") '
  Session("Authenticated") = False  
 
End Sub

Sub Session_OnEnd

End Sub

</SCRIPT>