1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
|
" codeBody "
<%
'---Cre�ër recordset
Verduister sql, objRS, s_name, s_order, s_next_order
sql = „UITGEZOCHTE Ingewikkeldheid, telling (*) als ComplexityCount,“ & _
„Avg (LibFTE) als AvgLibFTE“ & _
„VAN tblGeneral BINNEN TREED tblStaff OP tblGeneral.ChartID= tblStaff.ChartID“ toe & _
„WAAR AllHCF = „JA““ & _
„GROEP DOOR Ingewikkeldheid“
s_name = Request.querystring („soort“)
Als Request.Querystring („orde“) = „1“ toen
s_order = „ASC“
s_next_order = 0
Anders
s_order = „DESC“
s_next_order = 1
Eind als
Selecteer Geval s_name
Geval „Ingewikkeldheid“
sql = sql + „ORDE DOOR Ingewikkeldheid“ + s_order + „„
Geval „ComplexityCount“
sql = sql + „ORDE DOOR Telling (*)“ + s_order + „„
Geval „AvgLibFTE“
sql = sql + „ORDE DOOR Avg (LibFTE)“ + s_order + „„
Uitgezocht eind
Reeks objRS = Server.CreateObject („ADODB.Recordset“)
objRS.Open sql, objConn
%>
<%=title%>
<%=title%>
* wijst op een geconsolideerde faciliteit, geen afzonderlijk ingewikkeldheidsniveau assigned.
Omvat All HCF slechts aangewezen faciliteiten.
<%
Als (objRS.EOF) Dan
'---GEEN RIJEN AAN VERTONING
Anders
'---DE RIJEN VAN DE VERTONING IN EEN HTML GEFORMATTEERDE LIJST
%>
style='background-color
Complexity Level |
# van Medical Centers |
color='blue'>'>Average # of FTE
<%
Schemerige r_complexity, r_complexity_count, r_avgLibFTE
Doe terwijl (NIET objRS.EOF)
r_complexity = Versiering (objRS („Ingewikkeldheid“))
r_complexity_count = Versiering (objRS („ComplexityCount“))
r_complexity_count = Versiering (objRS („ComplexityCount“))
r_avgLibFTE = Versiering (objRS („avgLibFTE“))
%>
<%=r_complexity%> |
<%=r_complexity_count%> |
<%=r_avgLibFTE%> |
<%
'---BEWEGING AAN VOLGENDE RIJ
objRS.MoveNext ()
Lijn
%>
<%
Eind als
'---MAAK SCHOON
objRS.Close
Plaats objRS= niets
%>
|