<%@LANGUAGE="VBSCRIPT"%> <% Dim rsFac_Staff__MMColParam rsFac_Staff__MMColParam = "1" If (Request.QueryString("Project_Num") <> "") Then rsFac_Staff__MMColParam = Request.QueryString("Project_Num") End If %> <% Dim rsFac_Staff Dim rsFac_Staff_numRows Set rsFac_Staff = Server.CreateObject("ADODB.Recordset") rsFac_Staff.ActiveConnection = MM_leeweb_STRING rsFac_Staff.Source = "SELECT * FROM emplist WHERE Project_Num = '" + Replace(rsFac_Staff__MMColParam, "'", "''") + "' ORDER BY Grade DESC" rsFac_Staff.CursorType = 0 rsFac_Staff.CursorLocation = 2 rsFac_Staff.LockType = 1 rsFac_Staff.Open() rsFac_Staff_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsFac_Staff_numRows = rsFac_Staff_numRows + Repeat1__numRows %> Facility Staff Information


Employee
Job Title
Email
Picture
CARTER, CINDY L.
Senior Supervisor, Parks & Rec
TRUDO, TROY A.
Supervisor Parks & Rec
MACDONALD, DUNCAN J.
Park Ranger
HOOD, DONALD
Park Ranger
HAMMOND, MICHAEL S, JR
Park Ranger
CONRAD, RYAN D.
Park Ranger
<% rsFac_Staff.Close() Set rsFac_Staff = Nothing %>