<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = " select substr(firstname,1,1) || '. ' || lastname fname,shifts_before,shifts_after,total_shifts, " SQLStmt = SQLStmt & " count_before,count_after,total_count " SQLStmt = SQLStmt & " from secretary.count_shifts_all " SQLStmt = SQLStmt & " order by total_count desc " ' Response.write(SQLStmt & "
") Set RS = Connection.Execute(SQLStmt) %> Phobos Shift Count

Phobos Shift Count: super total, starting from the beginning of 2000 Run.

Future shifts are calculated until 12/31/2010 

weighted/unweighted

<% Do While Not RS.EOF %>
<% RS.Movenext Loop %>

Name

 Shifts To-date Future shifts Total 

<%=RS("fname")%>

 <%=RS("shifts_before")%>/<%=RS("count_before")%> <%=RS("shifts_after")%>/<%=RS("count_after")%> <%=RS("total_shifts")%>/<%=RS("total_count")%>
<% Connection.Close %>

Shift Level Weight