<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0%>
Tasks Page
<%
Dim objTask
Dim objTaskCol
Dim objLocMgr
Dim strCaption
Dim strTaskSrc
Dim strTaskUrl
Dim strCaptionRID
Dim intCaptionID
Dim varReplacementStrings
Dim strTasks
Dim strTaskLinks
On Error Resume Next
Dim objRetriever
Err.Clear
'Get the values sent by main page and store them in session variables
Dim strCurrentPage
Dim strPageCount
Dim strFocusItem
strCurrentPage = Request.QueryString("CurrentPage")
strPageCount = Request.QueryString("PageCount")
strFocusItem = Request.QueryString("FocusItem")
If strCurrentPage <> "" Then
Session("Main_CurrentPage") = strCurrentPage
End If
If strPageCount <> "" Then
Session("Main_PageCount") = strPageCount
End If
If strFocusItem <> "" Then
Session("Main_FocusItem") = strFocusItem
End If
'reset the focus for network page
Session("Network_FocusItem") = ""
'reset the hostname value for hostname page
Session("Hostname_Hostname") = ""
Set objRetriever = Server.CreateObject("Elementmgr.ElementRetriever")
Set objTaskCol = objRetriever.GetElements(1, "LOCAL_UI_TASKS")
If objTaskCol.Count=0 or Err.Number <> 0 Then
Err.Clear
Else
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
strTasks = ""
strTaskLinks = ""
For Each objTask in objTaskCol
strTaskSrc = ""
strTaskUrl = ""
strTaskSrc = objTask.GetProperty("Source")
strTaskUrl = objTask.GetProperty("URL")
strCaptionRID = objTask.GetProperty("CaptionRID")
strCaption = ""
intCaptionID = 0
intCaptionID = "&H" & strCaptionRID
strCaption = objLocMgr.GetString(strTaskSrc, intCaptionID, varReplacementStrings)
If strCaption <> "" and strTaskUrl <> "" Then
strTasks = strTasks & "