www.dnr.illinois.gov

Pat Quinn, Governor

DNR Links Skip to Content Skip to State Links

 IDNR Home
 IDNR Home (new)
 Agency Offices
 Disabled Outdoors
 Freedom of Information Act
 Get Involved
 Grant Info
 Great Lakes Restoration
 Hunting
 Fishing
 License / Permit / Register
 Kids & Education
 Law Enforcement
 Mandatory Safety Programs
 Lodges / Leasing
 More Links
 Outdoor Recreation
 Parks & Recreation
 Press Releases
 Publications
 State Museums
 World Shooting & Recreational Complex
 DNR A to Z

 DNR
 Illinois
Illinois Department of Agriculture
Enjoy Illinois

  Ecosystems Program - Contacts

<% Dim strUID, strPass %> <% strUID = "" %> <% strPass = "c5c4" %> <% Set connCW = Server.CreateObject("ADODB.Connection") %> <% connCW.Open ="Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ=" & Server.Mappath("/orep/pfc/epsupport/epsupport.mdb") & ";UID=" & strUID &";PWD=" & strPass %> <% Dim partner, todayDate %> <% Dim strQuery, rsEA, rsPartner %> <% Dim intEmailName, intEmailDomain %> <% todayDate = month(date) & "/" & day(date) & "/" & year(date)%> <% strQuery = "SELECT * FROM EcosysAdmins ORDER BY EcosysAdmins.lastName ASC" %> <% SET rsEA = connCW.Execute(strQuery) %>

Ecosystem Administrators

<% DO WHILE NOT rsEA.EOF %> <% IF (NOT (rsEA("Office") = "")) AND (NOT (isNull(rsEA("Office")))) THEN %> <% END IF %> <% IF (NOT (rsEA("Address1") = "")) AND (NOT (isNull(rsEA("Address1")))) THEN %> <% END IF %> <% If (NOT (rsEA("Fax") = "")) AND (NOT (isNull(rsEA("Fax")))) THEN %> <% END IF %> <% IF (NOT (rsEA("Pager") = "")) AND (NOT (isNull(rsEA("Pager")))) THEN %> <% END IF %> <% strQuery = "SELECT PartnershipName FROM Partnerships " &_ "WHERE Partnerships.EAnum = " & rsEA("eaNum") & " " &_ "ORDER BY Partnerships.PartnershipName ASC" SET rsPartner = connCW.Execute(strQuery) %> <% DO WHILE NOT rsPartner.EOF %> <% rsPartner.MoveNext LOOP rsPartner.Close SET rsPartner = Nothing %>
<%=rsEA("firstName") %> <%=rsEA("lastName") %>
Email: <% IF Instr(rsEA("email"), "@") > 0 THEN intEmailName = Left(rsEA("email"), Instr(rsEA("email"), "@") - 1) intEmailDomain = Mid(rsEA("email"), Instr(rsEA("email"), "@") + 1) %> <% END IF %>
<% =rsEA("Office") %>
<% =rsEA("Address1") %>
<% =rsEA("Address2") %>
<% =rsEA("CityStateZip") %>
Phone: <% =rsEA("telephone") %>
Fax: <% =rsEA("Fax") %>
Pager: <% =rsEA("Pager") %>
Partnerships represented:
<%=rsPartner("PartnershipName")%>

<% rsEA.MoveNext LOOP %> <% rsEA.close SET rsEA = Nothing %>
<% Dim strUser, strPWD %> <% strUser = "" %> <% strPWD = "daffy" %> <% Set connSL = Server.CreateObject("ADODB.Connection") %> <% connSL.Open ="Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ=" & Server.Mappath("/orep/lists/orepstaff.mdb") & ";UID=" & strUser &";PWD=" & strPWD %> <% Dim strQuery2, rsStaff %> <% strQuery2 = "SELECT * FROM tblStaffProgramsJoin INNER JOIN tblStaff ON tblStaffProgramsJoin.recordID = tblStaff.recordID WHERE (((tblStaffProgramsJoin.programID)=1)) AND tblStaff.recordID NOT IN (SELECT tblStaff.recordID FROM tblStaffProgramsJoin INNER JOIN tblStaff ON tblStaffProgramsJoin.recordID = tblStaff.recordID WHERE tblStaffProgramsJoin.programID=10) ORDER BY tblStaff.listOrder, tblStaff.lastName" %> <% 'strQuery2 = "SELECT * FROM tblStaff WHERE officeSection = 3 AND city = 'Springfield' And left(positionTitle,24) <> 'Ecosystems Administrator' ORDER BY listOrder, lastName ASC" %> <% Set rsStaff = connSL.Execute(strQuery2) %>

Springfield Staff

<% Do While Not rsStaff.EOF %> <% If (Not (rsStaff("addressLine1") = "")) And (Not (isNull(rsStaff("addressLine1")))) Then %> <% End If %> <% If (Not (rsStaff("addressLine2") = "")) And (Not (isNull(rsStaff("addressLine2")))) Then %> <% End If %> <% If (Not (rsStaff("faxNumber") = "")) And (Not (isNull(rsStaff("faxNumber")))) Then %> <% End If %>
<%=rsStaff("firstName") %> <%=rsStaff("lastName") %>
<%=rsStaff("caption") %>
Email:
<%=rsStaff("addressLine1")%>
<%=rsStaff("addressLine2")%>
<%=rsStaff("City")%> <%=rsStaff("state")%> <%=rsStaff("zipCode")%>
Phone: <%=rsStaff("mainPhone")%>
Fax: <%=rsStaff("faxNumber")%>

<% rsStaff.MoveNext Loop %> <% rsStaff.close Set rsStaff = Nothing %>

Partners for Conservation

 OREP
 Ecosystems & Environment
 Partners for Conservation
 Ecosystems Program
 Ecosystem Partnerships
 Ecosystem Project Grants
 Grant Projects
 Other Grant Opportunities
 Partners for Conservation Digital Library
 Best Management Practices
 SSIP
 Program Support
 News
 Publications
 Reports
 Forms and Documents
 Online System
 CTAP
 Legacy Pilots
 State Agency Partners

Copyrightę 2014 Department of Natural Resources
Accessibility    Contact    FAQs    Podcasts    Privacy    Social Networking