<%@ LANGUAGE="VBScript" %>
<%
If Not IsEmpty(Request("group")) Then
comp= CStr(Request("group"))
Else
comp="Unknown"
End If
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
statement="select pf.node node , "
statement= statement &"max(pf.frequency) frequency,max(pf.memory) memory,"
statement= statement &"max(pf.processors) processors, max(pf.osversion) osversion,pfd.fpartition fpartition,"
statement= statement &"max(pfd.fdisksize) fdisksize, max(nvl(pfd.mntpartition,'')) mntpartition, "
statement= statement &"round((sum(f.fsize)/1024/1024)/(max(pfd.fdisksize)/1024),2 ) disk_usage "
statement= statement &"from phoffline.pcfarm pf, phoffline.pcfarm_disk pfd, "
statement= statement &"phoffline.files f "
statement= statement &"where pf.node=pfd.node "
statement= statement &"and pfd.node=f.node(+) "
statement= statement &"and f.fpartition(+)=pfd.fpartition "
statement= statement &"and pf.farm='"& comp &"' "
statement= statement &"group by pf.node, pfd.fpartition"
set RS=connection.Execute(statement)
%>
<%=ucase(comp)%> Computer Group
<%=ucase(comp)%> Computer Group
Node
Frequency
Memory
Processors
OSversion
Fdisksize
Fpartition
Mntpartition
Diskusage
<% dim node
dim frequency
dim memory , processors , osversion , fdisk , fdisksize , fpartition , disk_usage
dim node_old , mntpartition
do while not RS.EOF
node=cstr(RS("node"))
frequency=cstr(RS("frequency"))
memory=cstr(RS("memory"))
processors=cstr(RS("processors"))
osversion=cstr(RS("osversion"))
fdisksize=cstr(RS("fdisksize"))
fpartition=cstr(RS("fpartition"))
if not isnull(RS("mntpartition")) then
mntpartition=cstr(RS("mntpartition"))
else
mntpartition="N/A"
end if
if not isnull(RS("disk_usage")) then
disk_usage=(cstr(RS("disk_usage"))*100)&"%"
else
disk_usage="N/A"
end if
if node=node_old then
response.write("