<%@LANGUAGE="VBSCRIPT"%> <% Dim search__MMColParam search__MMColParam = "1" if (Request.QueryString("letter") <> "") then search__MMColParam = Request.QueryString("letter") %> <% set search = Server.CreateObject("ADODB.Recordset") search.ActiveConnection = MM_glossary_STRING search.Source = "SELECT * FROM dbo.words WHERE word LIKE '" + Replace(search__MMColParam, "'", "''") + "%' ORDER BY word ASC" search.CursorType = 0 search.CursorLocation = 2 search.LockType = 3 search.Open() search_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 search_numRows = search_numRows + Repeat1__numRows %> Glossary Glossary Database

Select a Letter to view the associated terms.
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

 Glossary Term: 

Definition:

<% While ((Repeat1__numRows <> 0) AND (NOT search.EOF)) %>
 <%=(search.Fields.Item("word").Value)%>  <%=(search.Fields.Item("definition").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 search.MoveNext() Wend %>
<% search.Close() %>