% sub titlen(i) tlen=rs("title") if len(tlen)>i then tlen=left(tlen,i)&"..." else tlen=tlen end if end sub Const PAGESIZE=24 Const PARTSIZE=10 dim tlen tlen="" %>