WEB LISTING 4: VBScript Function to Build an HTML List Box from Resultset 
<%
'
'-- to build the HTML list box from recordset
'
Function BuildActivityTreeListHTML( oRs )
  Dim strListHTML
  
  '--- initial <SELECT> statement
  strListHTML = "<SELECT size=10 ID=listPrjActTree NAME=listPrjActTree>"
  
  '--- Determine whether zero nodes exist.
'--- Add dummy node, set the end of tag.
  IF( oRs.EOF ) THEN    
    strListHTML = strListHTML + "<OPTION Value=(none)>” _                              
+ "(No data available)"
_                              + "</OPTION>"
    strListHTML = strListHTML + " </SELECT>"
    BuildActivityTreeListHTML = strListHTML
    EXIT Function
  END IF  
  '--- Loop to parse the recordset and add node to list item.
  WHILE( not oRs.EOF )
    '--- Add item to list box by using <OPTION> tag.
    strListHTML = strListHTML _
                 + " <OPTION VALUE="+oRs.Fields("activity_code") +">" _
                 + oRs.Fields("activity_description") _
                 + "</OPTION>"
    
    '--- Move to next record.             
    oRs.MoveNext  
  WEND
  
  '--- end of tag marker for <SELECT>
  strListHTML = strListHTML + " </SELECT>"
  
  '--- Return the list box as an HTML string.
  BuildActivityTreeListHTML = strListHTML
END Function
%>