listar dados

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..