<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = " select to_char(max(start_time),'Month YYYY') month,to_char(max(start_time),'YYYYMM') cmonth, count(distinct user_name) users,"
SQLStmt = SQLStmt & " count(jobid) jobs,round(sum(duration),1) total_hours from phoffline.crs_job_info "
SQLStmt = SQLStmt & " group by to_char(start_time,'YYYYMM') "
SQLStmt = SQLStmt & " order by to_char(start_time,'YYYYMM') "
Set RS = Connection.Execute(SQLStmt)
%>
CSR Monthly Usage
Monthly CRS Usage
| Month |
Number of Users |
Number of Jobs |
Elapsed Hours |
<%
Do While Not RS.EOF
%>
| "><%=CStr(RS("month"))%> |
<%=RS("users")%>
|
<%=RS("jobs")%>
|
<%=RS("total_hours")%>
|
<%
RS.MoveNext
Loop
%>
<%
Set RS=nothing
Connection.Close
Set Connection=nothing
%>