Finns olika sätt att lösa det på.. här är ett: :)
[red]<tr>
<td>
<%
Set RecSet = Connect.Execute("SELECT storlek FROM produkter WHERE produktnamn = 'namn '")
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
If IsArray(arrRecSet) Then
Response.Write "<select name=""strl1""> "
For i = 0 To UBound(arrRecSet, 2)
strStorlek = arrRecSet(0,i)
Response.Write "<option value="""& strStorlek &""">"& strStorlek &"</option>"
Next
Response.Write "</select>"
Else
Response.Write "Fanns inget att hämta.."
End If
%>
</td>
</tr> [/red]
