<%
'---Recordset verursachen
Sql, objRS, s_name, s_order, s_next_order verdunkeln
sql = „AUSERWÄHLTE Kompliziertheit, gelten (*) als ComplexityCount,“ u. _
„Avg (LibFTE) als AvgLibFTE“ u. _
„VON tblGeneral INNEREM tblStaff AUF tblGeneral.ChartID= tblStaff.ChartID“ u. _ sich ANSCHLIESSEN
„, WO AllHCF = „JA““ u. _
„GRUPPE DURCH Complexity“
s_name = Request.querystring („Art“)
Wenn Request.Querystring („Auftrag“) = „1“ dann
s_order = „ASC“
s_next_order = 0
Sonst
s_order = „DESC“
s_next_order = 1
Beenden wenn
Fall s_name vorwählen
„Kompliziertheit“ umkleiden
sql = sql + „AUFTRAG DURCH Complexity“ + s_order + „„
Fall „ComplexityCount“
sql = sql + „AUFTRAG DURCH Zählimpuls (*)“ + s_order + „„
Fall „AvgLibFTE“
sql = sql + „AUFTRAG DURCH Avg (LibFTE)“ + s_order + „„
Ende auserwählt
objRS = Server.CreateObject („ADODB.Recordset“) einstellen
objRS.Open sql, objConn
%>
<%=title%>
align= <%=title%>
* zeigt eine vereinigte Anlage, kein unterschiedliches Kompliziertheitsniveau assigned. an
Schließt das nur All ein HCF, das Anlagen gekennzeichnet wird.
<%
Wenn (objRS.EOF) dann
'---KEINE ANZUZEIGEN REIHEN
Sonst
'---ANZEIGEN-REIHEN IN EINER HTML FORMATIERTEN TABELLE
%>
Complexity Level |
# von Medical Centers |
Average # of FTE |
<%
Schwaches r_complexity, r_complexity_count, r_avgLibFTE
Tun, während (NICHT objRS.EOF)
r_complexity = Ordnung (objRS („Kompliziertheit“))
r_complexity_count = Ordnung (objRS („ComplexityCount“))
r_complexity_count = Ordnung (objRS („ComplexityCount“))
r_avgLibFTE = Ordnung (objRS („avgLibFTE“))
%>
<%=r_complexity%> |
<%=r_complexity_count%> |
<%=r_avgLibFTE%> |
<%
'---AUF FOLGENDE REIHE SICH BEWEGEN
objRS.MoveNext ()
Schleife
%>
<%
Beenden wenn
'---AUFRÄUMEN
objRS.Close
objRS= einstellen nichts
%>
|