<% dim sqlVote,rsVote,i sqlVote="select * from Vote order by id" Set rsVote= Server.CreateObject("ADODB.Recordset") rsVote.open sqlVote,conn,1,1 if rsVote.bof and rsVote.eof then response.Write " 没有任何调查" else j=1 while not rsvote.eof response.write "" response.write "" response.write "" response.write "" response.write "

" response.write " "&j&"、 " & rsVote("Title") & "
" if rsVote("VoteType")="Single" then for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next else for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next end if response.write "" response.write "" response.write "" response.write "

" subform=subform&"VoteForm"&rsVote("ID")&".submit();" rsvote.movenext j=j+1 wend response.write "

" response.write "

" end if rsVote.close set rsVote=nothing %>