<%
rsvote.close
set rsrsvote=nothing
%>
<%
dim mid
dim midd
voteid=request("voteid")
set rs=server.CreateObject("adodb.recordset")
sql="select * from votechoice where titleid="&voteid&" order by cast(strno as int),id asc"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
i=1
While (rs.eof<>true and rs.bof<>true)
%>
|
<%if i mod 4 = 0 then%> <%end if
midd=rs("id")
mid=mid&midd&","
rs.movenext
i=i+1
wend
end if%>
|
|
