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