Line 7: Private Sub novinky_default_Load(sender As Object, e As EventArgs) Handles Me.Load
Line 8: Dim sPis As String = Request.QueryString("p")
Line 9: Dim li As HtmlAnchor = DirectCast(Me.Page.Master.FindControl("Men" + sPis), HtmlAnchor) : li.Attributes("class") = "active"
Line 10:
Line 11: Select Case sPis
|