<% AbreConexao id=request.querystring("id") If isempty(id) Then Response.Redirect site Else Set rsPet=Conexao.Execute("SELECT * FROM perguntas WHERE id="&id&"") If rsPet.EOF Then Response.Write "Enquete não encontrada!" Else Set rsRes=Conexao.Execute("SELECT * FROM respostas WHERE idpet="&rsPet("id")&"") %> document.write('
responder.asp?id=<%=id%>><%=rsPet("pergunta")%>

'); <% While not rsRes.EOF %> document.write('><%=rsRes("resposta")%>
'); <% rsRes.MoveNext Wend %> document.write('


Resultado Parcial

'); <% End If End If %>