<%@LANGUAGE="VBSCRIPT"%> <% Dim word__MMColParam word__MMColParam = "1" if (Request.QueryString("word") <> "") then word__MMColParam = Request.QueryString("word") %> <% set word = Server.CreateObject("ADODB.Recordset") word.ActiveConnection = MM_glossary_STRING word.Source = "SELECT * FROM dbo.words WHERE word = '" + Replace(word__MMColParam, "'", "''") + "' ORDER BY word ASC" word.CursorType = 0 word.CursorLocation = 2 word.LockType = 3 word.Open() word_numRows = 0 %> Glossary Term <% If word.EOF And word.BOF Then %>

Sorry, that term is currently not in the glossary for the Digital Atlas.

<%Else%>
 Glossary Term:    Definition:
 <%=(word.Fields.Item("word").Value)%> 
<%=(word.Fields.Item("definition").Value)%>
Click here to see full glossary.
<% End If ' end word.EOF And word.BOF %> <% word.Close() %>