Come nelle altre pagine normali.
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Dim Conn As New SqlConnection()
Conn.ConnectionString = ConfigurationSettings.appsettings("connectionstrin g")
Dim updateCmd As String = "UPDATE LEGUTENT SET connesso=0 where SessionID='" & Trim(CStr(Session.SessionID)) & "' "
Dim myCommand As SqlCommand = New SqlCommand(updateCmd, Conn)
Conn.Open
myCommand.ExecuteNonQuery()
Conn.Close
End Sub
Ciao
Legnetto