Udskrivnings problem

Jeg har en del vare med beskrivelse og billede. Dem henter jeg ud af en database men mit problem er bare at link\'sne står i en lang række.
Min kode ser sådan ud. Jeg vil gerne kunne kontrolere outputtet.

Dvs sådan her:

<table>
<tr>
<td>Varer med A</td>
<td>Varer med B</td>
<td>Varer med C</td>
osv...
</tr>
</table>


<html>
<head>
<title></title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<table width=\"765\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td colspan=\"3\"><img src=\"images/eptop.gif\" width=\"765\" height=\"52\"></td>
  </tr>
  <tr>
    <td width=\"132\" valign=\"top\"><img src=\"images/epvenstremenu.gif\" width=\"132\" height=\"265\" border=\"0\" alt=\"\"></td>
    <td width=\"5\">&nbsp;</td>
    <td width=\"5\">
      <table width=\"600\" border=\"0\">
        <tr>
          <td><font size=1 face=Verdana, Arial, Helvetica, sans-serif>Produkter:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"varer.mdb\")
Conn.Open DSN
strSQL = \"Select * From prisliste Order by varenr ASC\"
Set rs = Conn.Execute(strSQL)
Do
  strNavn = rs(\"varenr\")
  strLink = \"<font size=1 face=Verdana, Arial, Helvetica, sans-serif><a href=\'test6.asp?id=\" & rs(\"varenr\") & \"\'>\" & strNavn & \"</a>\"
  Response.Write \"<li>\" & strLink & \"</li>\" 
Response.Write \"<font size=1 face=Verdana, Arial, Helvetica, sans-serif>&nbsp;\" & rs(\"Beskrivelse\") & \"\"
  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%> </td>
          </tr>
      </table>
    </td>
  </tr>
</table>

</body>
</html>