ผมต้องการเก็บ Session user login ลงใน database sql โดยต้องการเก็บว่าใครเข้ามาในระบบบ้าง และเข้ามาตอนไหน

<%@ Application Language="VB" %>

<script runat="server">

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup  
        Application("conn") = "Provider=SQLNCLI;SERVER=10.84.57.109;UID=sa;PWD=abc123;APP=IIS6;WSID=pasapdbcluster;DATABASE=PASAP_Inventory;Description=WH Data Database;"
        Application("sConnStr") = "Data Source=10.84.57.109;Initial Catalog=PASAP_Inventory;" & _
            "User ID=sa;Password=abc123;Network Library=DBMSSOCN;pooling='true';Max Pool Size=1000000"
        
        Application("OnlineUser") = 0


    End Sub
    
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application shutdown
        Application.Lock()
        Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) - 1
        Application.UnLock()

    End Sub
        
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
        Application.Lock()
        Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) + 1
        Application.UnLock()

    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a session ends. 
        ' Note: The Session_End event is raised only when the sessionstate mode
        ' is set to InProc in the Web.config file. If session mode is set to StateServer 
        ' or SQLServer, the event is not raised.
        
        Application.Lock()
        Application("OnlineUser") = Convert.ToInt16(Application("OnlineUser")) - 1
        Application.UnLock()


    End Sub
         
</script>