Hjælp til <ul> og <li>

Jeg har følgende:

Response.Write "<ul>"
Response.write "<li><font color='#0000FF'>" & rs("antal") & "</font>- <font color='#ff0000'>" & antalsvar & "</font> indlæg</li>"
rs.movenext
Response.Write "</ul>"

Problemet er at der bliver for stor afstand mellem linierne (ligesom dobbelt linieafstand) Hvorfor det?
Kan nogen hjælpe.

Hele koden:
<%
'TOP 5 POSTER I FORUM STARTER HER
' DSNLess forbindelse til databasen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Forum/forum.mdb")

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

SQL = "SELECT TOP 5 Emne as Antal,ID FROM Messages Where SvarID = 0 Order by Dato DESC"
'for at udskrive antallet kan du bruger dit recordset (rs) rs("antal"):
set rs = myConn.execute(SQL)
do while not rs.EOF
  ' ny sql for at finde antal
  SQL="Select count(SvarID) as antalSvar from Messages Where SvarID = "&rs("ID")
  set rsTmp = myConn.execute(SQL)
  ' indlæs antal i variabel
  If Not rsTmp.EOF Then
    antalsvar = rsTmp("AntalSvar")
  Else
    antalsvar = 0
  End If
  rsTmp.Close
  Set rsTmp = Nothing
  Response.Write "<ul>"
  Response.write "<li><font color='#0000FF'>" & rs("antal") & "</font>- <font color='#ff0000'>" & antalsvar & "</font> indlæg</li>"
  rs.movenext
  Response.Write "</ul>"

loop

' Rydder op efter os
myConn.Close
Set myConn = Nothing
'COUNT PÅ POSTER I FORUM SLUTTER HER
%>