<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Option Explicit
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' ============
' Version 1.00 (24/05/2020)
' ============
' (SS,24/07/2020) New version

Sub Application_OnStart
  Application("ConnectionString") = "DSN=MySQL_itpplates"
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
  ' time out after two hours of non-use
  Session.Timeout = 120 

  ' Set the server locale to UK, mainly to prevent date problems (day and month being reversed)
  Session.LCID = 2057

  ' clear the session values
  Session("Authenticated") = False
  Session("ResellerID") = "" ' this is blank if reseller ID not entered and authenticated

End Sub

Sub Session_OnEnd

End Sub

</SCRIPT>