<SCRIPT LANGUAGE=VBScript RUNAT=Server>

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

  Application("ConnectionString") = "DSN=MySQL_cslbookings;"
    ' (SS,18/5/04) to disable password set it to "" (blank) in following '
  Application("DevelopmentPassword") = "" ' letmein"

  Application("WebDebugLogType") = "" ' File" ' can be Both, Email or File or "" for no log '
  Application("WebDebugLogEmail") = "surinder@itpartnership.com" ' set to "" to disable debugging by email'

  Application("WebsiteURL") = "http://www.conferencesearch.co.uk" ' used on emails and link back to site
  Application("MailServer") = "mail.itpartnership.com"
  Application("MailServer2") = "mail.ontheworldweb.com"

  Dim LMainCompanyEmailAddress, LITPTestEmailAdress
  LMainCompanyEmailAddress = "ruth@conferencesearch.co.uk"
  LITPTestEmailAdress = "surinder@itpartnership.com"

  Application("ContactEmailAddress") = LMainCompanyEmailAddress
  Application("ContactEmailBCC1") = LITPTestEmailAdress
  Application("ContactEmailBCC2") = ""
  Application("ContactEmailFromAddress") = LMainCompanyEmailAddress


  Application("CompanyName") = "Conference Search"
  Application("ClosedMessage") = "Sorry, on-line registration for this venue is now closed." + Chr(13) + Chr(10) &_
    "If you wish to register please contact Conference Search" & Chr(13) + Chr(10) & " by telephone or email."

  Application("NoPlacesMessage") = "Sorry, there are no more places available for this venue." & Chr(13) + Chr(10) & "Please select another or contact Conference Search on 0161 427 7057."

  Application("PayPalBusiness") = "payments@conferencesearch.co.uk"
  Application("PayPalTestMode") = False   ' can be True or False
  Application("SiteURL") = "http://www.conferencesearch.co.uk/book"

  Application("PDFReporterPath") = "D:\bin\webutils\PDFReporter.exe"
  Application("PDFReporterDatabase") = "cslbookings"
  Application("PDFReporterUserName") = "cslbookings"
  Application("PDFReporterPassword") = "cslvenue"

  Application("TestMode") = False

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

  ' (SS,26/9/04) default the settings '
  ' (SS,28/9/04) removed these due to cookie problems '

  Session("BookingAlreadyMade") = False

End Sub

Sub Session_OnEnd

End Sub

</SCRIPT>