<% Option Explicit Response.Buffer = true %> Glossary
CISR > Resource Library > Glossary > Browse

Search | Browse <% if Session("LOGGEDIN") then %> <% end if %> <% dim admin, Words, tempString, sql sql = "Select * From Master Order by Term" %>

1 - Glossary of UN Peacekeeping Terms
2 - Hidden Killers 1994: The Global Landmine Crisis
3 - Hidden Killers 1998: The Global Landmine Crisis
4 - International Standards for Humanitarian Mine Clearance Operations (1999)
5 - International Mine Action Standards (IMAS) 4.10 Glossary Edition 1
6 - North Atlantic Treaty Organization Definition
8 - U.S. Government Humanitarian Demining Strategic Plan, May 1997
<% if rs.BOF And rs.EOF Then response.write "No Items Found" else '-------------------------------Start of Bookmarks---------------------------------------- 'Write HTML table code for display table------------------------- dim intRow, rsArray, length, switch 'These variables are used only to create the bookmark links at the top of the list. There is 'another set after this section to create the actual list of items. dim b, c, bookmark, bookmark2 switch = false rsArray = rs.GetRows intRow = rs.RecordCount intRow = intRow-1 %>
Index:<% for b=0 to intRow 'This IF section is testing the first letter of the acronym in the current and next record 'to determine if the length changes so it can indicate to write the bookmark bookmark (as in 'not bookmark2). if NOT b = intRow then length = len(rsArray(1,b)) - (len(rsArray(1,b))-1) bookmark = left(rsArray(1,b),length) c=b+1 length = len(rsArray(1,c)) - (len(rsArray(1,c))-1) bookmark2 = left(rsArray(1,c),length) 'Actually comparing the records and the setting the switch variable. If it is true then 'the last if/then in this section writes out the bookmark. if bookmark < bookmark2 then switch = true end if else temp = "" end if 'Writes out the header for the first level break for the beginning of the table if b=0 then %> <%=bookmark2%><% switch = false end if if switch then %> <%=bookmark2%><% switch = false end if next response.write "
" & rs.recordcount & " Total records" %>
<% '-------------------------------End of Bookmarks---------------------------------------- '------------------------------Start writing records------------------------------------ %>
<% if Session("LOGGEDIN") then %>
<% else %>
<% end if %>
<%'-------------------------------End of Headers---------------------------------------- %>
<% dim x, y, temp, temp2, z, wordsToHilight, reBold wordsToHilight= Array Set reBold= New RegExp reBold.Pattern = "(" & JOIN(wordsToHilight, "|") & ")" reBold.IgnoreCase = True reBold.Global = True for y=0 to intRow 'This IF section is testing the first letter of the acronym in the current and next record 'to determine if the letter changes so it can create breaks in the table denoting such changes 'therefore creating a table that is easier to scan and search. if NOT y = intRow then length = len(rsArray(1,y)) length = length - (len(rsArray(1,y))-1) temp = rsArray(1,y) temp = left(temp,length) z = y+1 length = 0 length = len(rsArray(1,z)) length = length - (len(rsArray(1,z))-1) temp2 = rsArray(1,z) temp2 = left(temp2,length) elseif y-intRow = 0 then 'If there is only one record returned we want to print the heading row that includes the letter 'of the alphabet this record begins with. This will also prevent the application from thinking that 'we are at the end of the record set and therefore not print out the special character , which 'is used in the else statement below. length = len(rsArray(1,y)) length = length - (len(rsArray(1,y))-1) temp = rsArray(1,y) temp = left(temp,length) else 'If the end of the database is reached, we need to stop the application from creating a final 'break in the table, using "" as the highest value character in ASCII. I don't how to create this 'character, I don't even know what it is, so I just copied it from another website. :) temp = "" end if '-------------------------------End of Writing Section Headers---------------------------------------- 'Writes out every record in the table one record at a time. %>
<% if Session("LOGGEDIN") then %> <% else %>
<% end if %>
<% response.write reBold.Replace (rsArray(1,y),"$1") %>
<% response.write reBold.Replace (rsArray(3,y),"$1") %>
<% 'If the IF statement above finds a change in the first letter of the acronym, we create 'a new alphabetic section with a corrosponding bookmark. if temp < temp2 then response.write "" & temp2 & " - Top" switch = false end if response.write "" next end if %>