<%Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select id,title_jp,pic from koba_painter where id>0 "&sq&" order by up desc,Preface asc,id desc"
'Response.Write(sql)
rs.open sql,conn,1,1
Set Page = New SplitPage
Page.Conn = conn
Page.SQL=sql
Page.PageSize = 32
Page.Style = 3
Set Rs = Page.Rs
if rs.eof and rs.bof then
%>
Not Information! |
<%else
n=0
for j=1 to Page.PageSize
n=n+1
%>
|
<%if n mod 4=0 then response.write" "
Rs.MoveNext
Next
%>
<%Call Page.ShowPage%> |
<%Set Page = Nothing
Rs.Close: Set Rs = Nothing
end if%>
|