<%@ LANGUAGE="VBScript" %>
<%
'Set file I/O constants.
Const ForReading = 1
'Map the file name to the physical path on the server.
filename = "serverstat0.inc"
filename1 = "serverstat1.inc"
filename2 = "serverstat2.inc"
fileother = "other.inc"
path = Server.MapPath("/IT") & "\system\data\" & filename
path1 = Server.MapPath("/IT") & "\system\data\" & filename1
path2 = Server.MapPath("/IT") & "\system\data\" & filename2
pathother = Server.MapPath("/IT") & "\system\data\" & fileother
%>
The Dickie Award
System
& Network Status: <%
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile(path, ForReading)
do while not file.AtEndOfStream
Response.Write(file.ReadLine & vbCrLf)
loop
file.Close()
%> <%
dim fs1, file1
set fs1 = CreateObject("Scripting.FileSystemObject")
set file1 = fs1.OpenTextFile(path1, ForReading)
do while not file1.AtEndOfStream
Response.Write(file1.ReadLine & vbCrLf)
loop
file1.Close()
%> <%
dim fs2, file2,fileother
set fs2 = CreateObject("Scripting.FileSystemObject")
set file2 = fs2.OpenTextFile(path2, ForReading)
set fileother = fs2.GetFile(pathother)
If fileother.Size > 3 Then
do while not file2.AtEndOfStream
Response.Write(file2.ReadLine & vbCrLf)
loop
end if
file2.Close()
%>
IT's Dickie Award
IT is always involved in challenging projects that require many levels of expertise. We often call on the help of others outside of IT whose skills we can learn from and use on these various tasks.
The Service Recognition Award was created to show these individuals our appreciation for their contributions and outstanding technical input and/or support to IT's computing services. This award is presented periodically.
