Sub initHTML
'risks count (60)
Dim risks As Int= readDB2("select count(activity_id) from activity")
ws.Eval("$('#risks').text('" & risks & "');",Null)
'generate left menu
Dim rs As ResultSet= readDB("select title from activity")
html=" <ul id=""collapseSearch3"" class=""panel-collapse collapse"">"
Do While (rs.NextRow )
html = html & "<li><a href=""#""><span class=""blue-arrow""></span> " & rs.GetString("title") & "</a></li>"
Loop
html =html & "</ul>"
rs.Close
Dim jq As String ="$('#divcollapseSearch3').html('" & html & "');"
ws.Eval(jq,Null)
End Sub
Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
Log("Connected")
ws = WebSocket1
initHTML
End Sub