|
|
2004 PDS Recipients
Byron "Paddy" Liles
|
IEMA |
| Victor Stich |
City of Chicago OEM |
Stanley Krushas
|
IEMA |
| Ronald L. Kleinhaus |
Evergreen Park Fire Department |
| Gene Jensen |
Grundy County EMA |
| Anna Giacomini |
IEMA |
| Steve R. Miller |
McDonough County ESDA |
| Russell Steil |
IEMA |
| Scott Gauvin |
IEMA |
| Tammy Jo Miller |
McDonough County ESDA |
| Cristy Donaldson |
IEMA |
| Lisa Desai |
IEMA |
| Richard Carani |
Libertyville Fire Department |
| Linda Martorano |
Will County EMA |
| John Rogan |
Chicago Office of Emergency Management |
| George A. Herendeen |
American Red Cross |
| Tresa B. Bowen |
IEMA |
| Chris Pulley |
IEMA |
| Paul Rasch, Jr. |
IEMA |
| Gary L. Poshard |
IEMA |
| Michael P. Moos |
Office of the State Fire Marshal |
| William Carl |
Office of the State Fire Marshal |
| Douglas L. Kirk |
Office of the State Fire Marshal |
| Cheryl Mitchell |
American Red Cross Illinois Capital Area Chapter |
| Tammy Buse |
Logan County ESDA Horse Mounted Search and Rescue Team |
| Jerry Ellis |
Clay County ESDA |
| Rudy Jezek |
Will County EMA |
| Carolyn Shanks |
Vermilion County EMA |
| Charles Genesio |
DuQuoin ESDA |
| Steve Land |
Williamson County EMA |
| Brad Clearwater |
|
| Steve Young |
IDOT Aeronautics |
| Devesh Pandit |
Maine Township EMA |
| Gregory Scott |
Illinois Department of Public Health |
| Robert F. Tschiggfrie |
JoDaviess County LEPC |
| Edward Urban |
Algonquin Police Department |
| Susan A. Vancil |
Lake County Stormwater Management Commission |
| Joni Estabrook |
IEMA |
| Adam Croy |
IEMA |
| Steve Simms |
IEMA |
| Sharlynn Kraemer |
Edgar County ESDA |
| Tony Fabri |
IEMA |
| Teresa Foust |
Boone County EMA |
| Kathy Spellman |
IEMA |
| Joe Grove |
IEMA |
| Craig Karas |
Morton Grove ESDA |
| Marcus King |
Chicago Office of Emergency Management |
|
|
<%
Function GetActiveCourses()
Dim arrSessions, xmlhttp, dom, url, node, i, j
'***************************************************************************
'set up call to the web service for Last Updated date
'***************************************************************************
'Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
Set xmlhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Set dom = Server.CreateObject("Microsoft.XMLDOM")
url = "http://tier2.iema.state.il.us/Training/Training.asmx/GetWebMenu"
'set option to ignore SSL errors
const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
Call xmlhttp.setOption(2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS)
'call web service
Call xmlhttp.Open("GET", url, False)
Call xmlhttp.send
'Parse xml result
dom.Load(xmlhttp.responseBody)
Set node = dom.SelectSingleNode("//string")
'did we get a response back from the server?
If not node is nothing then
'yes - convert the xml to an array
dom.LoadXML(node.text)
'Did we find any records for the search criteria?
If not dom.SelectSingleNode("//NewDataSet/Table") is nothing then
Set rows = dom.SelectNodes("//NewDataSet/Table")
For i = 0 To rows.length - 1
ReDim Preserve arrItems(2,i)
For j = 0 to rows(i).childNodes.length - 1
arrItems(j,i) = rows(i).childNodes(j).text
Next
Next
'clean up your mess
set doc = nothing
set xmlhttp = nothing
GetActiveCourses = arrItems
Else
'clean up your mess
set doc = nothing
set xmlhttp = nothing
End If
Else
'clean up your mess
set doc = nothing
set xmlhttp = nothing
End If
End Function
arrCourses = GetActiveCourses()
If IsArray(arrCourses) Then
strSideMenu = " |
