Necesito ayuda :
Quiero hacer un sistema de preguntas y respuestas , donde usuarios realizen preguntas y el administrador se las conteste , tengo dos tablas
tabla 1 Preguntas
id
categoria
pregunta
usuario
imagen
tabla 2 respuestas
respuestaid
preguntaid
respuesta
imagen
usuario
El tema que quiero que cada pregunta tenga sus respuesta justo de bajo de cada pregunta que se realize , este es el codigo que estube trabajando pero tengo errores En el Recorset ya que si lo realizo asi me dice que el obejto esta abierto y no puedo realizar la operacion, intente abriendo dos veces la tabla cambiando el nombre del RS pero de esa forma me dice que pocos parametros se esperaba 1 , y me estoy volivendo loco, si alguno me puede ayudar agradecido ya que llevo mas de un mes con esto -
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base2.mdb")
sql ="SELECT TOP 10 * FROM preguntas WHERE Categoria= " & articulo & " ORDER BY id DESC"
RS.Open sql, oConn %> <%Do While not RS.EOF %> </tr>
<%Response.Write "<IMG SRC="""&RS("imagen")&""">" %>
<%Response.Write RS.Fields("pregunta")%>
<%Response.Write RS.Fields("usuario") %>
<%Session("idnumero") = RS("id")%>
<%response.write session ("idnumero") %>
<%sql ="SELECT TOP 10 * FROM respuestas WHERE respuestas_id= " & idnumero & " ORDER BY id DESC" RS.Open sql, oConn %>
<%Do While not RS.EOF %>
<%Response.Write "<IMG"&RS("imagen")&""">" %>
<%Response.Write RS.Fields("pregunta")%>
<% Response.Write RS.Fields("usuario") %>
<%RS.MoveNext
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
Loop
%>
<%
Session("sArticulo") = articulo
%>
<%RS.MoveNext
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
Loop
%>