<% SQL_N = "select * from news order by cdate DESC" set rs_n=GetRSbySQL(SQL_N) const pagesize = 10 if not isnull(rs) then count = rs_n.recordcount else count = 0 end if if count > 0 then page = request("p") ' page number if page = "" then page = 1 else page = cint(page) end if rs_n.pagesize = pagesize if page > rs_n.pagecount then page = page -1 end if rs_n.absolutepage = page pagecount = rs_n.pagecount end if rs_n.pagesize = pagesize while not rs_n.eof if not rs_n.eof then %> <% end if rs_n.movenext wend %>

"><%=rs_n("subject")%>

<%=rs_n("cdate")%>

<% if page > 1 then %> <% end if %> <% if page < pagecount then %> <% end if %>

[ <% for i =1 to pagecount %> <%if i = page then %> <%=i%> / <%else%> <%=i%> / <% end if %> <% next %> ]

¡@

<% 'SQL_E = "select * from products where newproduct = yes" SQL_E = "select products.*,prod_grp.other as other,prod_grp.id as p_id ,prod_grp.name as p_name from products,prod_grp where products.gid=prod_grp.id and products.newproduct = yes" set rs14=GetRSbySQL(SQL_E) count_rs = rs14.recordcount for i=1 to 3 if count_rs = 0 then response.write "NO DATA!" exit for end if while not rs14.eof if not rs14.eof then %> <% end if rs14.movenext wend next %>
 

<% if rs14("img_path3") <> "" then%> <% if rs14("other") = "True" then %> " width="88" height="56" onMouseDown="MM_openBrWindow('product_detail2_pic.asp?id=<%=rs14("id")%>','','scrollbars=yes,resizable=yes,width=350,height=250')"> <%else %> &id=<%=rs14("id")%>">" width="88" height="56"> <% end if %> <% else %> <% end if %>

<%=rs14("name")%>