<%
schwacher Titel
Titel = „Kompliziertheits-Niveaus und Stellenbesetzung“
%>
<%
'---Recordset verursachen
Sql, objRS, s_name, s_order, s_next_order verdunkeln
sql = „AUSERWÄHLTE Kompliziertheit, gelten (*) als ComplexityCount“ u. _
„Von tblGeneral“ u. vom _
„, 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 + „„
Ende auserwählt
objRS = Server.CreateObject („ADODB.Recordset“) einstellen
objRS.Open sql, objConn
'------------------
'Berechnungen für Personaldurchschnitte
sqlAvgLibFTE = „AUSERWÄHLTES avg (tblStaff.LibFTE) ALS AvgLibFTE“ u. _
„Vom tblStaff“
objAvgLibFTE = Server.CreateObject („ADODB.Recordset“) einstellen
objAvgLibFTE.Open sqlAvgLibFTE, objConn
%>
<%=title%>
align= <%=title%>
<%
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
Tun, während (NICHT objRS.EOF)
r_complexity = Ordnung (objRS („Kompliziertheit“))
r_complexity_count = Ordnung (objRS („ComplexityCount“))
r_complexity_count = Ordnung (objRS („ComplexityCount“))
%>
<%=r_complexity%> |
<%=r_complexity_count%> |
|
<%
'---AUF FOLGENDE REIHE SICH BEWEGEN
objRS.MoveNext ()
Schleife
%>
<%
Beenden wenn
'---AUFRÄUMEN
objRS.Close
objRS= einstellen nichts
%>
|