<%
sql = "select distinct p.Abstract, p.PID, p.ProjectTime from tblPost p, Category c where c.CatPIDList like '%," & CatID & ",%' and p.CatD = 'l' and c.CatID = p.CatID and c.CatID <> 116 and p.ProjectTime <= '" & Date() & "' order by p.ProjectTime desc"
set rs = server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 1
if not rs.BOF then
rs.PageSize = 7
if Request("PageNo") = "" then
PageNo = 1
else
PageNo = Cint(Request("PageNo"))
End if
rs.AbsolutePage = PageNo
For I = 1 to rs.PageSize
%>
| |
<%=rs("ProjectTime")%> |
|
| |
<%=rs("Abstract")%> |
|
<%
rs.MoveNext
If rs.EOF then Exit for
Next
response.Write(" |
<%=Cascade%>
