<%@ LANGUAGE="VBScript" %>
<%
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
'
' List all farms, group by farm name, calculate number of nodes and disks
'
SQLStmt = " select pp.farm farm,pp.nodes nodes,pp.processors processors,round(pp.freq,0) avgfreq, "
SQLStmt = SQLStmt & " dd.ndisks ndisks,round(dd.fsize,1) totdisk,round(dd.fsize/dd.ndisks,1) avgdisk from "
SQLStmt = SQLStmt & " (select farm,count(node) nodes,sum(processors) processors, "
SQLStmt = SQLStmt & " sum(processors*frequency)/sum(processors) freq "
SQLStmt = SQLStmt & " from phoffline.pcfarm group by farm) pp, "
SQLStmt = SQLStmt & " (select p.farm farm,count(pd.fdisk) ndisks,sum(pd.fdisksize)/1024/1024 fsize from "
SQLStmt = SQLStmt & " phoffline.pcfarm p,phoffline.pcfarm_disk pd "
SQLStmt = SQLStmt & " where p.node=pd.node group by p.farm) dd "
SQLStmt = SQLStmt & " where pp.farm=dd.farm "
SQLStmt = SQLStmt & " order by pp.farm "
'
' response.write(SQLStmt & " ")
'
Set RS = Connection.Execute(SQLStmt)
%>
Phobos Computer Groups
Phobos Computer Groups
Farm
Nodes
Processors
Avg Clock Speed
Disks
Avg Disk Size [GB]
Tot Disk [GB]
<%
Do While Not RS.EoF
'
' print out farm data
farm=CStr(RS("farm"))
nodes=CStr(RS("nodes"))
processors=CStr(RS("processors"))
avgfreq=CStr(RS("avgfreq"))
ndisks=CStr(RS("ndisks"))
totdisk=CStr(RS("totdisk"))
avgdisk=CStr(RS("avgdisk"))
Response.Write("