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.
|
|
<html><head><style TYPE="text/css">a:hover { color:#3030c0; }</style>
<!-- <link HREF="PCHealth.css" REL="STYLESHEET" TYPE="text/css"> --></head>
<body bgcolor="#eee5e0" text="black" link="black" vlink="black" alink="gray"><p><font face="Verdana" size="2"><span class="Description">Help is available for the following products. Please select the product and vendorfrom which you want support.</span><table border="0" cellpadding="0" cellspacing="0" width="100%" align="center"><tr><td valign="top"><br><b><font face="Verdana" size="4">Go to Vendors</font></b>
<table id="tblVendor" border="0" cellpadding="6" cellspacing="8" width="95%" align="center"><!--
<tr><td valign="top" width="11%" bordercolorlight="#cec5c0"><img border="0" src="images\go_to_1.gif"></td><td valign="top" width="39%" bordercolorlight="#cec5c0"><font face="Verdana" size="2"><b><a href="levelOne.asp?Cat=6">Computer Help from Dell Corporation</a></b><br></font><font face="Verdana" size="1">Use this channel to report hardware and operating system errors.</font><br></td> --></table></table></font></body><script language=VBScript>Sub window_onload() ' retrieve support channel info. Dim x Dim iCell, iRow Dim VendorName, VendorIcon, Description, VendorUrl, sHTML1, sHTML2 iRow = 0 iItem = 0' set x = window.external.GetSupportChannel set x = CreateObject("SAF.SAFReg.1") x.MoveFirst do while not x.EOF VendorName = x.VendorName VendorIcon = x.VendorIcon Description = x.ProductDescription VendorUrl = x.SupportUrl if VendorIcon <> "" Then sHTML1 = "<img src=""" & VendorIcon & """>" else sHTML1 = "" end if sHTML2 = "<font face=""Verdana"" size=""2""><b>" & _ "<a href=""" & VendorUrl & """>" & VendorName & "</a></b><br></font>" & _ "<font face=""Verdana"" size=""1"">" & Description & "</font><br>"
if iItem = 0 then document.all.tblVendor.insertRow(iRow) iItem = 1 iCell = 0 else iItem = 0 iCell = 2 end if document.all.tblVendor.rows(iRow).insertCell(iCell) set y = document.all.tblVendor.rows(iRow).cells(iCell) y.valign = "top" y.width = "11%" y.bordercolorlight = "#cec5c0" y.innerHTML = sHTML1 iCell = iCell + 1 document.all.tblVendor.rows(iRow).insertCell(iCell) set y = document.all.tblVendor.rows(iRow).cells(iCell) y.valign = "top" y.width = "39%" y.bordercolorlight = "#cec5c0" y.innerHTML = sHTML2
if iCell = 3 Then iRow = iRow + 1 end if x.MoveNext loop set x = NothingEnd sub</script></html>
|
