Hjælp...

Jeg har dette stykke kode som skal vise indholdet af en database. Som navigation har jeg lavet et rullepanel som skal vise indholdet af tublen \"navn\" i databasen, og så vise det pågældende indholder når man trykker på et af navnene. Problemet er at når siden loades første gang, skal der ikke vises andet end rullepanelet samt noget tekst vi indtaster. Hvis der er nogen som kan gennemskue det, og så skrive den endelige kode herinde/eller maile mig den, så er der point i luften :)

kode:
<%
\' Henter DyreID
dim strDyreID
strDyreID = Trim(Request.Querystring(\"DyreID\"))

Set DB = Connect()

    SQL = \"SELECT Dyr.DyrID, Dyr.Navn FROM Dyr\"
    Set RS = DB.Execute (SQL)
    %>
    <select size=\"1\" name=\"dyrene\" onChange=\"location.href = \'VisDyr.asp?DyreID=\' + this.options[this.selectedIndex].value\">
    <OPTION value=\"\">Vælg nu bare det dyr dumpap</OPTION>
    <%
   
    RS.MoveFirst
    Do While Not RS.EOF
        Response.Write \"<OPTION value=\" & chr(34) & RS(\"DyrID\") & chr(34) & \">\" & RS(\"Navn\") & \"</OPTION>\"
    RS.MoveNext
Loop
   
%></select><%

If NOT IsNull(strDyreID) then
           
\' Udvælger data for det ønskede dyr
SQL = \"SELECT Dyr.DyrID, Dyr.Navn, Grupper.GruppeNavn FROM Grupper INNER JOIN Dyr ON Grupper.GruppeID = Dyr.Gruppe WHERE Dyr.DyrID = \" & strDyreID
Set RS = DB.Execute (SQL)

\'Her skal i indsætte det i vil have skrevet ud på skærmen
Response.Write \"<br>Navn: \" & rs(\"Navn\") & \"<br> Gruppenavn: \" & rs(\"GruppeNavn\")

end if
CloseAndDis ()
%>