Vælge værdi fra database som selected

Hejsa

Jeg har følgende stump kode, som laver en dropdown boks for den 1. i alle 12 måneder. Det virker perfekt. Mit problem er så, at jeg gerne vil have den til, hvis der er skrevet noget i Kalender tabellen, at den så står på det som et forvalg. Altså hvis eksempelvis der står lukket i felt 01 udfor ID 3, skal den vise lukket som default i dropdownboksen (der hvor jeg henter fra Personer) Hvordan gør jeg dette?

<%
OpenCon
strSQL01 = "select 01 from Kalender"
set rs01 = Conn.Execute(strSQL01)

Do until rs01.eof
    response.write "<td><select name=""Navn"" size=""1"">"

    strSQL201 = "select Navn from Personer where personID=1 or personID=2 or personID=3 or personID=4"
    set rs201 = Conn.Execute(strSQL201)
    Do while not rs201.eof
        strNavn01 = rs201("Navn")
        Response.Write "<option value="
        Response.Write rs201("Navn")
        Response.Write ">"&rs201("Navn")&"</option>"

    rs201.MoveNext
    Loop
   
    response.write "</td>"

rs01.movenext
loop


%>