home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / servis / ovladace / drivers / 850win2000.exe / asppages / page1.asp < prev    next >
Encoding:
Text File  |  1999-09-24  |  3.1 KB  |  124 lines
  1. <% @CODEPAGE = 65001 %>
  2. <%
  3. '*********************************************************
  4. '
  5. '   Tektronix Windows 2000 Print Status ASP Page Project
  6. '
  7. '   Copyright (c) Tektronix, Inc. 1999
  8. '
  9. '   Description
  10. '
  11. '    Tektronix Print Status Main Definitions
  12. '
  13. '   History
  14. '
  15. '       Version 1.0 7/22/99     Greg Thornton
  16. '    Version 1.1 9/8/99    Greg Thornton, addition of ResponseCharSet
  17. '    Version 1.2 9/24/99    Greg Thornton, MS session variable bug
  18. '
  19. '*********************************************************
  20. %>
  21.  
  22.  
  23. <%
  24. Response.Expires     = -1                ' Set http expires time to earliest possible
  25. Response.Buffer        = TRUE                ' Send buffer at end of page build
  26. Response.CacheControl   = "Private"            ' Disable public caching
  27. Response.AddHeader    "Pragma", "no-cache"        ' HTTP 1.0 method for disabling caching
  28. Response.AddHeader     "Refresh", "60"            ' Set http (client) refresh time 
  29. Response.ContentType     = "text/HTML" 
  30. On Error Resume Next
  31. Err.Clear
  32.  
  33. %>
  34.  
  35. <!-- #include file = "text.inc" -->
  36. <!-- #include file = "snmp.inc" -->
  37. <!-- #include file = "dhtml.inc" -->
  38.  
  39. <% 
  40.  
  41. 'Donot write any data to the output buffer prior to executing this statement. 
  42. Session.CodePage    = ResponseCodePage
  43. Response.Charset     = ResponseCharSet
  44. %>
  45.  
  46.  
  47. <html>
  48.  
  49. <head>
  50.  
  51. <title><%= text(PRINTER_STATUS) %></title>
  52.  
  53.  
  54. <STYLE>
  55.  
  56. <!-- 
  57.  
  58. body { background: #FFFFFF; color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  59.  
  60.  
  61. p { color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  62.  
  63. ol { color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  64.  
  65. ul { color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  66.  
  67. li { color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  68.  
  69. td { color: #000000; font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  70.  
  71. th { color: #000000; font-family: Arial,Geneva,sans-serif; font-weight: bold; font-size: 10pt}
  72.  
  73. h1 {  color: #FF9900; font-family: Arial,Geneva,sans-serif; font-size: 14pt}
  74.  
  75. h2 {  color: #990099; font-family: Arial,Geneva,sans-serif; font-size: 14pt}
  76.  
  77. h3 {  color: #FF9900; font-family: Arial,Geneva,sans-serif; font-size: 12pt}
  78.  
  79. h4 { color: #990099; font-family: Arial,Geneva,sans-serif; font-size: 12pt}
  80.  
  81. h5 {  font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  82.  
  83. h6 { font-family: Arial,Geneva,sans-serif; font-size: 10pt}
  84.  
  85. sup { vertical-align: top; font-size: 65%}
  86.  
  87. a:link { color: #0000FF;}
  88.  
  89. a:visited { color: #CC00CC;}
  90.  
  91. -->
  92.  
  93. </STYLE>
  94.  
  95. </head>
  96.  
  97.  
  98. <body text="#000000" bgcolor="#FFFFFF">
  99.  
  100. <H3><%= text(PHASERLINK) %><sup>TM</sup><%= " " & text(PRINTER_STATUS) %></H3>
  101.  
  102. <%
  103.     Dim model
  104.     
  105.     On Error Resume Next
  106.     Err.Clear
  107.  
  108.     model = GetSNMPStatus()
  109.  
  110.     If Err.Number <> 0 Then htmlErrorPage ERROR_SNMP
  111.  
  112.     If model = M_UNKNOWN Then
  113.         Response.Redirect("http://" & Request("MS_IPAddress") & "/_status_nt5.shtml")
  114.         If Err.Number <> 0 Then htmlErrorPage ERROR_REDIRECT
  115.     End If
  116.  
  117.     htmlPrinterAdvisoryTable model
  118.     If Err.Number <> 0 Then htmlErrorPage ERROR_HTML
  119.  
  120.     htmlPrinterStatusTable model
  121.     If Err.Number <> 0 Then htmlErrorPage ERROR_HTML
  122. %>
  123.  
  124.