我想往这里加入一个brnum,就是指显示几条信息换行功能，应怎么加，如果方便请加我QQ：411381135，送一套程序答谢

'产品类别
Function HOPE_ProductShow_New1(topnum,sortid,typeid,typeid_2,isdatetime,istypename,istj)
sql="select top "&topnum& " yixiang_productshow.id,yixiang_productshow.cpmc,yixiang_productshow.sortid,yixiang_productshow.typeid,yixiang_productshow.typeid_2,yixiang_Class_1.sort,yixiang_productshow.idate from yixiang_productshow,yixiang_Class_1 where yixiang_productshow.sortid=yixiang_Class_1.sortid"
if sortid<>0 then sql=sql&" and yixiang_productshow.sortid="&sortid
if typeid<>0 then sql=sql&" and yixiang_productshow.typeid="&typeid
if typeid_2<>0 then sql=sql&" and yixiang_productshow.typeid_2="&typeid_2
if istj=1 then sql=sql&" and yixiang_productshow.zsbz='03'"
sql=sql&" order by yixiang_productshow.idate desc"
set proRs=server.createobject("adodb.recordset")
proRs.open sql,conn,1,1
if not proRs.eof then
i=1
do while not proRs.eof
ClassName="bb1-1"
if i mod 2 = 0 then
    ClassName="bb1-2"
end if
strs=strs&"<li class="""&ClassName&"""><div class=""pro_datetime_1""><a href="""&HOPE_InstallDir&"productshow/offerdetail/"&proRs("SortID")&"-"&proRs("TypeID")&"-"&proRs("typeid_2")&"-"&proRs("ID")&".html"">"&proRs("cpmc")&"</a> "
if istypename=1 then
    strs=strs&"["&proRs("sort")&"]"
end if
strs=strs&"</div>"
if isdatetime=1 then
    strs=strs&"<div class=""pro_datetime_2"">"&replace(formatdate(proRs("idate"),2),"/",".")&"</div>"
end if
strs=strs&"</li>"&vbCrlf
i=i+1
proRs.movenext
loop
end if
proRs.close
set proRs=nothing
HOPE_ProductShow_New1=strs
End Function