Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

87 lines
2.3 KiB

  1. <% '==================================================
  2. ' Microsoft Server Appliance
  3. '
  4. ' Tasks tab page
  5. '
  6. ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.
  7. '================================================== %>
  8. <!-- #include file="sh_page.asp" -->
  9. <!-- #include file="tabbar.asp" -->
  10. <!-- Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved-->
  11. <%
  12. On Error Resume Next
  13. Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
  14. strSourceName = "sakitmsg.dll"
  15. if Err.number <> 0 then
  16. Response.Write "Error in localizing the web content "
  17. Response.End
  18. end if
  19. '-----------------------------------------------------
  20. 'START of localization content
  21. Dim L_PAGETITLE_TEXT
  22. Dim L_TASKSLBL_TEXT
  23. Dim L_NOTASKS_MESSAGE
  24. L_PAGETITLE_TEXT = objLocMgr.GetString(strSourceName, "&H40010026",varReplacementStrings)
  25. L_TASKSLBL_TEXT = objLocMgr.GetString(strSourceName, "&H40010027",varReplacementStrings)
  26. L_NOTASKS_MESSAGE = objLocMgr.GetString(strSourceName, "&H40010028",varReplacementStrings)
  27. 'End of localization content
  28. '-----------------------------------------------------
  29. %>
  30. <HTML>
  31. <meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
  32. <HEAD>
  33. <TITLE><%=L_PAGETITLE_TEXT%></TITLE>
  34. <LINK REL="stylesheet" TYPE="text/css" HREF="sh_page.css">
  35. <SCRIPT LANGUAGE="JavaScript" SRC="sh_page.js"></SCRIPT>
  36. </HEAD>
  37. <BODY marginWidth ="0" marginHeight="0" onDragDrop="return false;" topmargin="0" LEFTMARGIN="0" oncontextmenu="return false;">
  38. <%
  39. ServePageWaterMarkNavIE
  40. ServeTabBar
  41. ServeTasks
  42. call ServePageWaterMarkEndNavIE(m_VirtualRoot & "images/tasks_water.gif", m_VirtualRoot & "images/oem_logo.gif", false)
  43. %>
  44. </BODY>
  45. </HTML>
  46. <%
  47. '----------------------------------------------------------------------------
  48. '
  49. ' Function : ServeTasks
  50. '
  51. ' Synopsis : Serves the task links
  52. '
  53. ' Arguments: None
  54. '
  55. ' Returns : None
  56. '
  57. '----------------------------------------------------------------------------
  58. Function ServeTasks
  59. on Error resume next
  60. ServeStandardLabelBar(L_TASKSLBL_TEXT)
  61. ServeElementBlock "TASKS", L_NOTASKS_MESSAGE, True, True, False
  62. End Function
  63. %>