Prøv lige det her engang!
Do while Not rsoplev.EOF
IF CInt(strCategory) = CInt(rsoplev("id")) THEN
strSelected = "selected"
ELSE
strSelected = ""
END IF
Response.Write "<option value=""" & rsoplev("id") & """ " & strSelected & ">" & TruncateString(rsoplev("overskrift"),26) & "</option>"
rsoplev.moveNext
Loop