Max længde på et udtræk.......

Hvordan gør jeg sådan at et udtræk max må være en hvis længe ligesom Job boxen i højre side på eksperten.dk

min source
----------------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"xxxx.mdb\")
strSQL = \"select top 5 * from xxx order by id desc\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>

&nbsp;<span class=\"menupunkt\"><%= rs(\"xxxxx\") %><br>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>