Software Database: simple search

Advanced search

tags. 'Only category, level, and target language are listed, this being the simple search 'Values in the SELECT objects (list/combo boxes) are derived dynamically 'from the database via the procedure PrintComboBox, other than the Level 'combo box which isn't suitable for this method. 'The LABEL tags are for accessibility, as recommended in the W3C's WAI guidelines. %>

tags need to have 'been printed in the calling routine. 'The subroutine only properly works on 'lookup' tables - eg CATEGORY, LANGUAGE - 'whose purpose is simply to provide standard values. ' 'Parameters: ' objname: name of combo box ' valuefield: name of field to provide VALUE attribute in tag ' displayfield: name of field to provide text in tag ' tablename: name of table in database ' order: true if results to be sorted alphabetically, else false ' 'NB: The HTML SELECT object outputs a combo box when its SIZE 'attribute is set to 1. 'NB2: the TABLE.fieldname format is to prevent errors in case a fieldnames is a 'SQL reserved word 'NB3: the value and display fields are for instances where the VALUE attribute of 'the combo box is different from the text displayed as a combo box item, eg 'category name displayed but category number to be passed in the querystring DIM rs, sql 'Instantiate recordset object to hold list values set rs = server.CreateObject("ADODB.Recordset") sql = "SELECT DISTINCT " if valuefield = displayfield then 'Construct SQL query from parameters sql = sql & tablename & "." & valuefield & " from " & tablename else 'Construct SQL query from parameters sql = sql & tablename & "." & valuefield & ", " & tablename & "." & displayfield & " from " & tablename end if 'If alphabetical ordering is required, add ORDER BY clause if order then sql = sql & " ORDER BY " & tablename & "." & displayfield end if sql = sql & ";" 'Run query using global connection variable rs.open sql, conn 'Create list box. First list item is a blank, otherwise there'd 'be loads of searches for beginners Afrikaans ;-) %>