On Error GoTo Err_Page_Load Dim strMsg As String If Session("GLSys") = True Then mnuMainMenu.Items(1).Enabled = True End If lblUserName.Text = Session("UserName") lblPeriodNumb.Text = Session("PeriodNumb") strMsg = CStr(session("StartDate")) & "-" & CStr(session("EndDate")) 'lblDateRange.Text = Session("StarDate").ToString 'lblDateRange.Text = lblDateRange.Text & "-" & Session("EndDate").ToString lblDateRange.Text = strMsg lblAcctYear.Text = Session("CurrYear").ToString & "-" & Session("NextYear").ToString lblLocCurrCode.Text = Session("LocCurrCode") lblDateClock.Text = DateTime.Today.ToString lblCoyName.Text = Session("CoyName") '& "->" & Session("BranchCode") lblCopyright.Text = Session("ProgTitle") imgCoyLogo.ImageUrl = "~/Images/CoyLogo.jpg" Exit_Page_Load: Exit Sub Err_Page_Load: lblStatus.Text = lblStatus.Text & "Error No : " & Err.Number.ToString & "->" & Err.Description & " has occurred!" & Chr(13) lblStatus.Visible = True Resume Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)