LISTING 1: ASP Code to Populate List Box for Normalized Tables

<!-- BEGIN ASP -->

Please choose a size:
<%
Dim ItemID, Connect, Items, Query
ItemID = 100
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "ToysDSN", "sa", ""
Query = "Select ItemOption from options where ItemId = " & ItemID
Set Items = Connect.Execute(Query)
%>
<select name = "ItemOption">
<%
Do while not Items.EOF %>
<option value = <%=items("ItemOption")%>><%=items("ItemOption")%></option>
<% Items.movenext
Loop %>
</select>

<!-- END ASP -->