Ta fram ut DB i en Select

Hejsan. Brukar få bra svar här så fortsätter väl :)
Jag undrar hur jag ska göra för att kunna ta fram i en
<select>
<option>hej</option>
<option>då</option>
</select>

Altså om medlemen valt "hej" som lagts till i databasen vill jag att det alternativet ska väljas i selecten, med vanliga inputs är det ju enkelt då gör man ju såhär:

<input type="text" value="<%=objRS("bild")%>" name="bild">

Men kan man göra på nått liknande sätt som sagt med en select "box"?

Visst går det! :)
variant 1

<select>
<option <% If objRs("värde") = "hej" Then Response.Write("selected=""selected""") %>>hej</option>
<option <% If objRs("värde") = "då" Then Response.Write("selected=""selected""") %>>då</option>
</select>

Det sättet är kanske inte så snyggt men funkar!

Ett annat sätt (och snyggare) är att loopa alla options (beroende på vad värdena kommer ifrån förståss):
Ex.

Dim arrValues, i, selected
arrValues = split("hej,då", ",")

Response.Write("<select>" & vbCrlf)
For i = 0 To uBound(arrValues)
     selected = ""
     If objRs("värde") = arrValues(i) Then selected = "selected=""selected"""
     Response.Write("<option value=""" & arrValues(i) & """ " & selected & ">" & arrValues(i) & "</option>" & vbCrlf)
Next
Response.Write("</select>" & vbCrlf)

Tackar så mycket fungerar hur bra som helst :)