<% 'From menu sql = "select * from reference where grp_id = "& grp_id &" ORDER BY ref_id DESC" set rs = conn.execute(sql) overall = rs.recordcount if not rs.eof then if request("no") ="" then pageno =1 else pageno=request("no") end if total = rs.recordcount pagesize= 20 totalpage = total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 else totalpage = 0 end if rs.Move pagesize*(pageno-1) a=1 if trim(pageno) <> trim(totalpage) then endrecord = pagesize else endrecord=(total mod pagesize) end if For a=1 to endrecord %>

<%=imgsrcfull(rs("ref_picture"), rs("ref_picturex"), rs("ref_picturey"), 80, 5, 5, 1)%>	<%=rs("ref_title")%> <%=left(rs("ref_detail"),250)%> &grp_id=<%=grp_id%>">view detail

<% rs.movenext next set rs = nothing end if %>

Found : <%=overall%> item(s)

<%for ppp = 1 to totalpage%> <%=ppp%>  <%next%>