<%
voteid=115
set rs=server.CreateObject("adodb.recordset")
sql="select * from votechoice where titleid="&voteid&" order by id desc"
rs.open sql,conn,1,3
rs.pagesize=500
page=request("page")
if page="" or (isnumeric(page) and page<1) or (not isnumeric(page)) then
page=1
else
page=cint(page)
end if
if page>rs.PageCount then
page=rs.PageCount
elseif page<1 then
page=1
end if
if not rs.eof then
for i=2 to page
for n=1 to 500
rs.movenext
next
next
end if
%>
<%
if not rs.eof then
i=1
While (rs.eof<>true and i<501)
titleid=rs("titleid")
id=rs("id")
%>
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
wend
end if
rs.close
set rs=nothing
%>
|
|
|
