Loop de loop

Hvordan kan det være at denne kode kun viser et udslag selv om der er flere kategorier i databasen(MySQL) - samt der bliver ikke vist noget efter dropdown'en:

<select size="1" name="rubrik">
<option value selected>Vælg....</option>
<%
strSQL = "SELECT * from hovedkat order by id DESC"
set re = conn.execute(strSQL)

do while not re.eof

id = re("id")
navn = re("navn")

Response.Write "<option style='COLOR: #ffffff; BACKGROUND-COLOR: #8293A6' value='"& id & "|0'>" & navn & ":</option>"

strSQL = "SELECT * from underkat where hid = " & id & " order by id DESC"
set rq = conn.execute(strSQL)

do while not rq.eof

uid = rq("id")
unavn = rq("navn")

Response.Write "<option style='BACKGROUND-COLOR: #E3E7EA' value='" & re("id") & "." & uid & "'>- " & unavn & "</option>"

rq.MoveNext
loop

rs.MoveNext
loop
%>
</select>


MVH
JW