Sub mainblog_click (Params As Map)
If Params.IsInitialized Then
If Params.Get("target") = "" Then Return
Dim s As String = Params.Get("target")
Log("comments: " & s)
If s.Contains("read_") Then
Dim blog_id As String = s.Replace("read_","")
ws.GetElementById("blog_show_body").SetHtml(show_blog_post(blog_id))
' now move to that anchor location'
End If
If s.Contains("leave_") Then leave_comment(s)
If s.Contains("submit_") Then leave_comment(s)
End If
End Sub