Sub Session_OnStart
   Dim conn
   Dim BC
   Dim Browser
   Dim Platform
   Dim Referer
   Dim RSSessionID
   set conn = server.createobject ("adodb.connection")
   conn.open "ASPBook", "sa", "nep2tune"
   set BC = server.createobject("MSWC.BrowserType")
   Browser = BC.Browser & " " & BC.Version
   Platform = cstr(BC.Platform)
   Referer = Request.ServerVariables("HTTP_REFERER")   
   conn.execute "insert into ASPSessions (SessionStarted, RefSource, " _
      & "Browser, OS) values (" _
      & "'" & Now & "', " _
      & "'" & Referer & "', " _
      & "'" & Browser & "', " _
      & "'" & Platform & "')"
   set RSSessionID = conn.execute("select Max(SessionID) as MaxID from " _
      & "ASPSessions")
   Session("SessionID") = RSSessionID("MaxID")
End Sub
