home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / global.asa < prev    next >
Text File  |  2004-09-27  |  972b  |  54 lines
  1. <SCRIPT LANGUAGE=vbscript RUNAT=Server>
  2.  
  3. dim con
  4. dim UserCount
  5.  
  6.  
  7.     set con = server.CreateObject("ADODB.Connection")
  8.         
  9.     con.ConnectionString = "DSN=revelation;UID=;PWD=;"
  10.  
  11.     con.Open
  12.  
  13. sub Session_OnStart()
  14.  
  15.         dim Strsql
  16.         dim rs
  17.         dim intRowsAffected
  18.         
  19.             
  20.         Strsql = "SELECT MAX(user_count)+1 FROM user_count"
  21.         
  22.         set rs = server.CreateObject("adodb.recordset")
  23.         set rs = con.Execute(Strsql)
  24.         
  25.         if not(rs.EOF or rs.BOF) then
  26.             UserCount = rs.Fields(0)
  27.         else
  28.             UserCount = 1
  29.         end if        
  30.                 
  31.         Strsql = "INSERT INTO user_count(user_count) VALUES(" & UserCount & ")"
  32.     
  33.         con.Execute Strsql,intRowsAffected
  34.         
  35.         if intRowsAffected > 0 then
  36.             UserCount = rs.Fields(0)
  37.         end if                        
  38.     
  39.     Application.Lock
  40.     Application("visitorcount") = UserCount
  41.     'Application("visitorcount") = Application(visitorcount") + 1
  42.     Application.UnLock
  43.  
  44.     con.Close
  45. end sub
  46.  
  47. sub Session_OnEnd()
  48.  
  49. session("password")=""
  50.  
  51. end sub
  52.  
  53. </SCRIPT>
  54.