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.
 
 
 
 
 
 

95 lines
2.9 KiB

<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 vendor
from 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 = Nothing
End sub
</script>
</html>