Sub Session_OnEnd
  Dim conn
  set conn = server.createobject ("adodb.connection")
  conn.open "ASPBook", "sa", "nep2tune"
  conn.execute "Update ASPSessions set SessionEnded = '" & Now _
    & "' where SessionID = " & Session("SessionID")
End Sub
