<%
dim pg : pg=fn.dic("curpage") : if pg="" then pg=1
Set Listing = new ListClass
Listing.SetLow = 11
Listing.Columm = " * "
Listing.Short = " QThread DESC "
Listing.Table = " Board "
Listing.CountSql = "select count(*) from Board where QDelFg = 0 and QUnique=10705 and QviewArea=0 ;"
Listing.Condition = "QDelFg = 0 and QUnique=10705 and QviewArea=0 "
Set rs = Listing.execrs()
response.cookies("searchKeyWords") = "?curpage="&pg
'US.SETS "PageName", Listing.Target
%>
<%
i = 0
Do until rs.eof
%>
<%=(Listing.ListCount)-(pg-1)*11 - i%> |
"><%=rs("QTitle")%> |
|
<%=left(rs("QDate"),10)%> |
|
<%
i = i + 1
rs.movenext
loop
%>
|
<%
Set Listing = Nothing
%>