vb Code:
Dim Lin As New LinkButton
Lin.Text = dr("DeptDesc").ToString
Lin.CssClass = "deptlink"
Lin.ToolTip = CDate(dr("MeetingDate").ToString).ToFileTime.ToString
'Lin.OnClientClick
Lin.PostBackUrl = "" '"http://localhost:2201/Website1/HTMLPages/AgendaBuildItemManagement.aspx?DeptID=" + dr("SubmitByDept").ToString + "&CourtDate=" + CDate(dr("MeetingDate").ToString).ToFileTime.ToString
'Lin.OnClientClick = "Lin_MyCustomCode"
Lin.Attributes.Add("OnClick", "Lin_MyCustomCode")
Me.DeptsByDate.Controls.Add(Lin)
vb Code:
Public Sub Lin_MyCustomCode(ByVal sender As Object, ByVal e As System.EventArgs)
HttpContext.Current.Session("CourtDate") = CType(sender, LinkButton).ToolTip
JCSrcLib.CommSiteAPI.API.ConnectionString = DBConnections.CommSiteTest.ConnectionString
HttpContext.Current.Session("DeptID") = CType(CountyDepartments.GetDepartmentsByName(CType(sender, LinkButton).Text)(0).Field("ID").ToString, Integer)
AjaxControlToolkit.ToolkitScriptManager.RegisterClientScriptBlock(Me.Page, Me.Page.GetType(), "Reroute", "window.redirect('AgendaBuildItemManagement.aspx')", True)
End Sub