<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') ddate from dual "
Set RS = Connection.Execute(SQLStmt)
ddate=RS("ddate")
Set RS=nothing
SQLStmt = "select name,value "
SQLStmt = SQLStmt & " from v$sysstat order by statistic#"
Set RS = Connection.Execute(SQLStmt)
%>
DB system counts on PHDB
Main Phobos Database system counts on <%=ddate%>
Parameter
Count
<%
Do While Not RS.EOF
%>
<%=RS("name")%>
<%=RS("value")%>
<%
RS.MoveNext
Loop
%>
<%
Connection.Close
Set Connection=nothing
Set RS=nothing
%>