<% dim sql,rs_sql,test sql = "SELECT Poll_ID,question FROM Polls" objConn.open set rs_sql = objConn.Execute(sql) test="no" do while not rs_sql.EOF test="yes" rs_sql.movenext loop if test="yes" then rs_sql.movefirst do while not rs_sql.EOF %> - ">
<% rs_sql.movenext loop end if rs_sql.close set rs_sql=Nothing objConn.close %>