<%
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:
<% 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 %>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