<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open Conexao
SQL = "SELECT * from Perguntas order by id ASC"
rs.open sql,Conn
do while not rs.eof
PerguntaID = rs("ID")
sql1 = "select * from Respostas where PerguntaID="&PerguntaID
response.write "<tr><td>"
response.write "<b>" & rs("Pergunta") & "</b><br>"
response.write "<input type='hidden' name='PerguntaID' value="&PerguntaID&"><br>"
set rs1=conn.execute(sql1)
do while not rs1.eof
response.write "<input type=radio checked name=enquete"&PerguntaID & " value='"&rs1("id")&"'>"&rs1("Resposta") & "<br>"
rs1.movenext
loop
rs.movenext
response.write "<br><br></td></tr>"
loop
%>
Pergunta
Agente Linhares
alguém sabe como?
tipo eu tava querendo fazer isso com esse codigo:
se alguém souber como..
desde já agradeço..
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados