%@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 %>
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:
|
|
<%=(search.Fields.Item("word").Value)%> | <%=(search.Fields.Item("definition").Value)%> |