怎么把这个asp显示做成一个表格显示

如何把这个asp显示做成一个表格显示？
<%
lt=request.querystring("lt")
mc=request.querystring("mc")
mm=request.querystring("mm")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("guest.mdb")
exec="select * from book order by mm desc"
set rs=server.createobject("adodb.recordset")'
rs.open exec,conn,1,3 
do while not rs.eof
 response.write rs("lt")
 response.write "---"
 response.write rs("mc")
 response.write "---"
 response.write rs("mm")
 response.write "<br>"
rs.movenext
loop
conn.close
set conn=nothing
%>



现在是用---做分割符号 当出现记录长度不同的时候 就显示的很乱
能不能做出一个表格 把这些记录都填进去？
谢谢




------解决方案--------------------

VBScript code

<%
lt=request.querystring("lt")
mc=request.querystring("mc")
mm=request.querystring("mm")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("guest.mdb")
exec="select * from book order by mm desc"
set rs=server.createobject("adodb.recordset")'
rs.open exec,conn,1,3 
 response.write "<table border=1>"
do while not rs.eof
      response.write "<tr><td>"&rs("lt")&"</td><td>"&rs("mc")&"</td><td>"&rs("mm")&"</td></tr>"
    rs.movenext
loop
response.write "</table>"
conn.close
set conn=nothing
%>