Ecco il mio problema:

Ho il seguente database



recupero dalla pagina di provenienza il valore id_dis=1

ed apro il database....

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../../mdb-database/community.mdb")
Conn.Open strConn
sql = "SELECT * FROM messaggi where id_dis='"&id_dis&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3
<table>
<%
Do While Not rs.Eof
id = rs("id")


a=0
if a=0 then
%>

<tr bgcolor="#EEEEEE">
<td height="28" style="border-bottom: Solid 1px #CCCCCC;">&#187; &id_dis=<%=ids%>&titolo=<%=tit%>"><font size="2"><%=rs("titolo")%></font></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=rs("nome")%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=rs("data")%></td>
</tr>

<%
a=1
else
%>

<tr bgcolor="#FFFFFF">
<td height="28" style="border-bottom: Solid 1px #CCCCCC;">&#187; &id_dis=<%=ids%>&titolo=<%=tit%>"><font size="2"><%=rs("titolo")%></font></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=rs("nome")%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=rs("data")%></td>
</tr>
<%
a=0
end if
rs.movenext
loop
%>
</table>

Il risultato ottenuto é:

id_dis: 1
nome: luca
data: 22/10/04

id_dis: 1
nome: paola
data: 25/12/04


a me interesserebbe avere:

id_dis: 1
nome: luca
data: 25/12/04 (in corrispondenza di id=15)

id_dis: 1
nome: alfio
data: 01/01/05 (in corrispondenza di id=18)

ovvero: una volta individuato id_dis=1, legga il corrispettivo valore id, e mi vada a leggere nella colonna id_risposta l'ultimo record avente per valore id

Mi sapete dire come si fa?