<%
voteid=request("voteid")
set rs=server.CreateObject("adodb.recordset")
if request("strtype")="" then
sql="select * from votechoice where titleid="&voteid&""
else
strtype=request("strtype")
sql="select * from votechoice where titleid="&voteid&" and strtype='"&strtype&"' "
end if
rs.open sql,conn,1,3
rs.pagesize=30
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 30
rs.movenext
next
next
end if
%>
<%
if not rs.eof then
i=1
While (rs.eof<>true and i<31)
%>
