<% Dim RS2 Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.open"select * from honors where typeid=2 order by date desc,id desc",conn,1,1 PageSize = 15 Call SetRecordSet_Page(RS2) Dim i i=0 Do While Not RS2.EOF And i <% i = i + 1 RS2.MoveNext Loop RS2.Close Set RS2 = Nothing %>

" target="_blank" ><%=RS2("Title")%>

<%ShowPage()%>