<%@ 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_2001_only " SQLStmt = SQLStmt & " order by lastname asc " ' Response.write(SQLStmt & "
") Set RS = Connection.Execute(SQLStmt) %> Phobos Shift Count

Phobos Shift Count from 5/1/2001 until 1/31/2002.

(future shifts are calculated until 1/31/2002)

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