recordset con filtro del recordset precedente

[gsflash]

Buonasera a tutti, scusami per la premura perchè è abbastanza urgente.
Siccome mi hanno affidato un lavoro da fare per modificare il MDB ACCESS che è schifoso ma era già stata fatta da una collega, a loro interessa è che i questionari compilati dai clienti siano inseriti nel file access, ho notato che ce stato il form molto scomodo perchè sono tutti i numeri, codici dei questionari, codici delle risposte. Quindi ho proposto al responsabile che io faccia una sola pagina asp che si vede come il foglio del questionario.
Quando ho fatto il recordset della tabella "Domanda":

Tabella Domanda

NumeroQuestionario
NumeroDomanda
TestoDomanda


E invece le risposte ammissibili stanno ogni domanda. Questi si trovano nell'altra tabella "RisposteAmmissibili":

Tabella RisposteAmmissibili

Numeroquestionario
NumeroDomanda
CodiceRisposta
TestoRisposta

quello che mi interessa è il filtro della tabella "RisposteAmmissibili" di ogni NumeroDomanda dalla tabella "Domanda".

ho provato in questo modo e non ci sono riuscito:

risposteammessi.Source = "SELECT * FROM RisposteAmmissibili WHERE Numerodomanda = " <%=(questionario.Fields.Item("Numerodomanda").Value)""

io vorrei che la pagina sia fatta ogni domanda estratto dalla tabella "Domanda" e poi le risposte ammissibili estratte dalla tabella "RisposteAmmissibili" secondo del numero della domanda dalla tabella "Domanda".

<% 
While ((Repeat1__numRows <> 0) AND (NOT questionario.EOF)) 
%>
    

<%=(questionario.Fields.Item("Numerodomanda").Value)%> - <%=(questionario.Fields.Item("Testodomanda").Value)%></p>
    


      <input type="checkbox" name="checkbox" value="<%=(risposteammessi.Fields.Item("CodiceRisposta").Value)%>" />
      <%=(risposteammessi.Fields.Item("Risposta").Value)%></p>
    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  questionario.MoveNext()
Wend
%>

Spero che mi sono fatto capire, scusami tanto che ho premura perchè è urgente.
Grazie molto

[Mems]

Dreamweaver dipendente?

[gsflash]

faccio dreamweaver per fare prima possibile.
Scusa, ho detto che è urgente e ti pare il caso di fare questa domanda?

[optime]

flash, il fatto è che non si capisce quale sia il problema -- esponilo correttamente: chi potrà/vorrà ti darà una mano.

[gsflash]

Originariamente inviato da optime
flash, il fatto è che non si capisce quale sia il problema -- esponilo correttamente: chi potrà/vorrà ti darà una mano.

Che cosa non si capisce?
Volevo dire per come fare il filtro della tabella "risposteammissibili" secondo dal numero della domanda della tabella "Domanda".

Ad esempio

1 (NumeroDomanda dalla "Domanda") - Quale preferisci il cellulare? (TestoDomanda dalla "Domanda")

X - Nokia (Risposta dalla "risposteammissibili" secondo NumeroDomanda = NumeroDomanda dalla tabella "Domanda"
x - Siemens (idem)
X - HTC (idem)

2 (secondo numero del NumeroDomanda dalla "domanda") - dmkamdalkdlkadmaldas?

x - dsadasdsadasdas

Mi sono fatto capire? mi interessa è quello del recordset risposteammessi prelevando dal numero di domanda dell'altra tabella "domanda".
Spero, grazie

[gsflash]

up

[gsflash]

pare che non mi sono fatto capire?

[gsflash]

ho fatto in questo modo:

<%
Dim questionario
Dim questionario_numRows

Set questionario = Server.CreateObject("ADODB.Recordset")
questionario.ActiveConnection = MM_questionario_STRING
questionario.Source = "SELECT * FROM Domanda"
questionario.CursorType = 0
questionario.CursorLocation = 2
questionario.LockType = 1
questionario.Open()

questionario_numRows = 0
%>
<%
Dim risposteammessi__MMColParam
  risposteammessi__MMColParam = questionario.Fields.Item("Numerodomanda").Value)"
%>
<%
Dim risposteammessi
Dim risposteammessi_numRows

Set risposteammessi = Server.CreateObject("ADODB.Recordset")
risposteammessi.ActiveConnection = MM_questionario_STRING
risposteammessi.Source = "SELECT * FROM RisposteAmmissibili WHERE Numerodomanda = " + Replace(risposteammessi__MMColParam, "'", "''") + ""
risposteammessi.CursorType = 0
risposteammessi.CursorLocation = 2
risposteammessi.LockType = 1
risposteammessi.Open()

risposteammessi_numRows = 0
%>

e mi restituisce l'erorre:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/questionariotim/inserimento.asp, line 19, column 77
risposteammessi__MMColParam = questionario.Fields.Item("Numerodomanda").Value)"
----------------------------------------------------------------------------^

[gsflash]

UP

[gsflash]

ho trovato in questo modo:

SELECT *
FROM Domanda, RisposteAmmissibili
WHERE Domanda.NumeroDomanda = RisposteAmmissibili.NumeroDomanda
ORDER BY Domanda.NumeroDomanda, RisposteAmmissibili.CodiceRisposta

e poi nella lista risulta:

101 - bundle dati al PC e/o Mini PC?

 Molto

101 - bundle dati al PC e/o Mini PC?

 Abbastanza

101 - bundle dati al PC e/o Mini PC?

 Poco

101 - bundle dati al PC e/o Mini PC?

 Per niente

102 - BroadBand?

 Risposta aperta

103 - BroadBand?

 Troppo lunga

103 - Mobile BroadBand?

 Adeguata all’offerta

invece io vorrei che sia

101 - bundle dati al PC e/o Mini PC?
Molto
Abbastanza
Poco
Per niente

102 - BroadBand?
(risposta aperta) _________________________________________________

103 - Mobile BroadBand?
Troppo Lunga
Adeguata all'offerta
[/code]

come si fa?
Grazie