<% dim sqlVote,rsVote,i sqlVote="select top 1 * from Vote where IsSelected=True" Set rsVote= Server.CreateObject("ADODB.Recordset") rsVote.open sqlVote,conn,1,1 if rsVote.bof and rsVote.eof then response.Write " 没有任何调查" else response.write "
" response.write "
" response.write "
" response.write " " & rsVote("Title") & "
" if rsVote("VoteType")="Single" then for i=1 to 16 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "
" & rsVote("Select" & i) & "
" next else for i=1 to 16 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "
" & rsVote("Select" & i) & "
" next end if response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" end if rsVote.close set rsVote=nothing %>