Dropdown menu

Haii der har denne her code


<%
   
    set toprs=server.createobject("adodb.recordset")
    toprs.open "select * from kategori order by prioritet",conn

    do while not toprs.eof
   
        response.write "<div>&nbsp;<b><img src=""img/profile.gif""> "&toprs("kategori")&"</b></div>"

        response.write "<div><div>"

        set subrs=server.createobject("adodb.recordset")
        subrs.open "select * from emne where kategori="&toprs("id") & " order by emne asc",conn

        do while not subrs.eof

            response.write "&nbsp;- <a href=""kategori.asp?emne="&subrs("id")&""">"&subrs("emne")&"</a><br>"

            subrs.movenext
        loop

        subrs.close
        set subrs=nothing

        response.write "</div></div>"

        toprs.movenext
    loop

    toprs.close
    set toprs=nothing
    %>



og så vil jeg gerne ha den til at funge 100% lige som den menu her inde www.weblove.dk de har nermlig en dropdown menu men kan ikke få mit asp til at fungere efter hvad jeg vil ha den til :(

håber der er nogen her inde der kan hjælpe mig med det he rlille script