Come visulizzare record di stesso argomento

[mmaria]

Ciao amici sono Maria ed ho un problema per visulizzare in asp dei record. Mi spiego.
Visualizzo un record e fin qui nessun problema. Insieme a questo record però vorrei visulizzare tutti quelli che sono della stessa sua categoria che nei record della tabela portano tutti lo stesso numero.

In altre parole:

sql = "SELECT TOP 30 * FROM messages WHERE ID="&ID&" ORDER BY ID DESC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF

response.write ""&rs("message_subject")
rs.MoveNext
Loop

In questo momento sto visulizzando il record che risponde alla query impostata.
Insieme a questo record però, in coda, vorrei visulizzare tutti i record che hanno come numero lo stesso che questo record contiene nel campo "argomento". Come faccio?
Vi ringrazio in anticipo
La vostra Maria

[optime]

non è chiaro ciò che vuoi ottenere. fa' un esempio

[mmaria]

Ogni record viene registrato con due campi. Il primo, che si chiama message_subject, contiene nome e cognome. Il secondo campo, che si chiama argomento, contiene un numero che varia da 1 a 9 a seconda che si tratti di medico, infermiere, paziente, etc...

Con la query che ho scritto sopra visualizzo una persona che fa parte del personale dell'ospedale. Visulizzata questa persona vorrei subito dopo visulizzare tutte le persone che fanno parte dello stesso argomento. Mi spiego meglio se questa persona visualizzata è un medico voglio visualizzare subito dopo tutti gli altri medici che hanno nel campo argomento il numero 1.

Spero essere stata chiara
Maria

[Roby_72]

sql = "SELECT * FROM messages WHERE arcomento="&rs("argomento")&" ORDER BY ID DESC"

dove rs("argomento") lo hai recuperato dalla prima query.

Roby

[mmaria]

Io scrivo così:

<%
sql = "SELECT TOP 30 * FROM messages WHERE ID="&ID&" ORDER BY ID DESC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF

response.write ""&rs("message_subject")
rs.MoveNext
Loop
%>

<%

sql = "SELECT * FROM messages WHERE argomento="&rs("argomento")&" ORDER BY ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF

response.write ""&rs("message_subject")
rs.MoveNext
Loop
%>

Ma mi da error '80020009'
per la riga di query nuova che ho introdotto

Dove sbaglio?

Maria

[optime]

che rs("argomento") non esiste più, visto che il recordset è finito. mettiti il valore in una variabile di comodo

[mmaria]

non so come fare...
maria

[optime]

Originariamente inviato da mmaria
non so come fare...
maria

certo che lo sai fare, ma sei troppo pigra!

...
Do While Not rs.EOF
   response.write ""&rs("message_subject")
   mioargomento = rs("argomento")
   rs.MoveNext
Loop
...
sql = "SELECT * FROM messages WHERE argomento=" & mioargomento & " ORDER BY ID DESC"
...

vero?

[mmaria]

Ok funziona ti ringrazio
a volte sono davvero troppo pigra.

C'è solo un piccolo problema... nella lista che mi offre il secondo sql non dovrebbe apparire il nome che già ho visulizzato con il primo sql
come potrei fare?
maria

[optime]

allo stesso modo, ti memorizzi l'id che vuoi escludere. nella where aggiungi

... AND ID<>id_memorizzato...