<%
set rs2 = server.CreateObject("adodb.recordset")
sql="select id,title,date from bbs where typeid="&rs("typeid")&" order by id desc"
rs2.open sql,conn,1,1
for i=1 to 5
if rs2.EOF or rs2.BOF then exit for
title=rs2("title")
if len(title)>32 then title=left(title,32)+"..." %>