är det ok om jag renskriver lite :)
<select name="galleriKategori">
<option value=""> == Välj här == </option>
<%
Dim Selected
Do Until katRS.Eof
Selected = ""
If cStr(katRS("kategori")) = Request.Form("galleriKategori") Then Selected = "selected"
Response.Write("<option value=""" & katRS("kategori") & """ " & Selected & ">" & katRS("kategori") & "</option>")
katRS.MoveNext
Loop
%>
</select>