home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Special / chip-cd_2001_spec_05.zip / spec_05 / apps / crystal / disk24 / Xasp15 < prev    next >
Text File  |  1999-08-23  |  946b  |  31 lines
  1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  2.  
  3. 'You can add special event handlers in this file that will get run automatically when special Active Server Pages events
  4. 'occur.  To create these handlers, just create a subroutine with a name from the list below that corresponds to the event
  5. 'you want to use.  For example, to create an event handler for Session_OnStart, you would put the following code into this
  6. 'file (without the comments):
  7. Sub Session_OnStart
  8.  
  9.     set session("oApp") = Server.CreateObject("crystal.crpe.application")
  10.     
  11.  
  12.     set session("oEMF") = Server.CreateObject("cremfgen.cremfgen.1")
  13.  
  14.     session("init") = ""
  15.     session("username") = "new"
  16.     session("page") = ""
  17.     session("accesslevel") = ""
  18. End Sub
  19.  
  20. Sub Session_OnEnd
  21.     set session("oApp") = nothing
  22.     set session("oEMF") = nothing
  23.     session("init") = ""
  24.     session("username") = "old"
  25.     session("page") = ""
  26.     session("accesslevel") = ""
  27. End Sub
  28.  
  29.  
  30. </SCRIPT>
  31.