%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsKeywords Dim rsKeywords_numRows Set rsKeywords = Server.CreateObject("ADODB.Recordset") rsKeywords.ActiveConnection = MM_connProceedings_STRING rsKeywords.Source = "SELECT DISTINCT KeywordText FROM KeyWordsQuery ORDER BY KeyWordText ASC" rsKeywords.CursorType = 0 rsKeywords.CursorLocation = 2 rsKeywords.LockType = 1 rsKeywords.Open() rsKeywords_numRows = 0 %> <% Dim rsAuthors Dim rsAuthors_numRows Set rsAuthors = Server.CreateObject("ADODB.Recordset") rsAuthors.ActiveConnection = MM_connProceedings_STRING rsAuthors.Source = "SELECT DISTINCT Expr2 FROM AuthorsQuery ORDER BY Expr2 ASC" rsAuthors.CursorType = 0 rsAuthors.CursorLocation = 2 rsAuthors.LockType = 1 rsAuthors.Open() rsAuthors_numRows = 0 %> <% Dim rsDecisions__MMColParam rsDecisions__MMColParam = "D" If (Request("MM_EmptyValue") <> "") Then rsDecisions__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsDecisions Dim rsDecisions_numRows Set rsDecisions = Server.CreateObject("ADODB.Recordset") rsDecisions.ActiveConnection = MM_connProceedings_STRING rsDecisions.Source = "SELECT DISTINCT KeyWordText FROM KeyWords WHERE KeyWordDecision = '" + Replace(rsDecisions__MMColParam, "'", "''") + "' ORDER BY KeyWordText ASC" rsDecisions.CursorType = 0 rsDecisions.CursorLocation = 2 rsDecisions.LockType = 1 rsDecisions.Open() rsDecisions_numRows = 0 %>
|