Using GetString Method to Populate a dropdown box by Michael Ryan

Using GetString Method to Populate a dropdown box by  Michael Ryan

This example is an extension of the Populating a dropdown box from a database.   Generally for select boxes, I use the .getstring method which I find tends to be faster usually than just looping.  Below is the code,

Original Code

Original Example as is just using Looping
<select size=1 onChange="gotohref(this);">
<option SELECTED>Navigate Our Site</option>
<% Do While Not rs.EOF %>
    <option value="<% = rs("id") %>"><% = rs("field1") %></option>
    <% rs.movenext %><% loop %>
</select>

Code for GetString Method

The original query must contain 2 (only) fields, 1st for value, 2nd for text may seem like more code, but the getstring will return the text faster than a loop I think the getstring method is also great for passing data to the client, for client-scripting using split method.

<%
dim sOptionText

If rs.BOF or rs.EOF Then
        sOptionText = "<option value='invalid'>No options available</option>"
Else
        sOptionText = "<OPTION VALUE='invalid' SELECTED>Navigate Our Site</OPTION>" _
        & vbCRLF & "<OPTION VALUE='" _
        & rsResults.GetString(2,,"'>","</OPTION>" & vbCRLF & "<OPTION
        VALUE='","")
End If
%>
<select size=1 onChange="gotohref(this);">
<%=Left(sOptionText,InStrRev(sOptionText,"<OPTION"))%>
</select>