|
|
2003 PDS Recipients
| Terry Abma |
City of Darien ESDA (retired) |
| Kathy Angelakos |
City of Seneca ESDA |
| Tom Ballard |
City of Lemont EMA |
| Don Banks |
Wabash County EMA |
| Tom Callard |
City of Rolling Meadows ESDA |
| Linda Dante |
Will County OEM |
| Jack DeHeve |
IEMA |
| Patricia Frankovich |
Argonne National Labatory |
| Rita George |
Rush North Shore Hospital |
| Alan Gower |
Williamson County EMA |
| Wendy Hillyer |
Schuyler County ESDA |
| Laura Imes |
City of Senaca ESDA |
| John Keane |
Mount Prospect ESDA |
| David Keim |
City of Carbondale Fire Dept |
| David Lincoln |
Village of Westmont ESDA |
| Charles "Chuck" Morris |
Piatt County ESDA |
| Mary Murphey |
Evergreen Park Fire Dept |
| John Neal |
IEMA |
| Lee Onley |
Boone County ESDA |
| Jared Owen |
IEMA |
| Robert Page |
Bartlett Police Dept |
| Dianne Ruff |
Logan County ESDA |
| Craig Shaw |
City of Fairview Police Dept |
| Justin Short |
IEMA |
| John Simon |
Adams County ESDA |
| Dave Sterofsky |
Rock Island Fire Dept |
| Trent Thompson |
Illinois National Guard Military Support |
| Tim Vaclav |
Burr Ridge Police Dept |
| Dennis Walk |
Effingham County ESDA |
| Robert "Bucky" Washam, Jr. |
City of Lincoln Fire Dept. |
| James Watts |
IEMA |
| Robert Zamor |
City of Libertyville EMA |
|
|
<%
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 = " |
