inde i et loop

Hvordan kommer den bullet til at virke?
Den rykker ned + at den rykker teksten nedenunder med ind.

inde i et loop af menuen:

<%if CINT(rs_rtyper.Fields.Item("r_id").Value) = CINT(request("r")) then response.Write("<ul><li>")%><a href="index.asp?r=<%=(rs_rtyper.Fields.Item("r_id").Value)%>&b=0" class="menuoverskrift"><%=(rs_rtyper.Fields.Item("rtype").Value)%></a> <%if (rs_rtyper.Fields.Item("r_id").Value) = request("r") then response.Write("</li></ul>")%><br>