Select Distinct non funziona se aggiungo un campo da controllare

[Marco7303]

Provo a spiegarmi su quello che vorrei fare!

Ho un campo nel database che si chiama letto (formato Si/No) che quando il destinatario legge
il messaggio (quando entra in una determinata pagina) viene spuntato.

Il problema è che se nel database il primo messaggio di quell'utente viene letto,
per lui sono letti anche tutti gli altri...

La select la faccio con una select distinct in quanto voglio raggruppare tutti i messaggi
arrivati ad un determinato utente facendo visualizzare una sola volta il suo username e poi
premendo sull'username si apre la sua pagina con tutti i messaggi (questo funziona).

Se inserisco nella select distinct msgpvt.letto invece funziona bene il controllo di lettura dei
messaggi (mi dice se ci sono o meno nuovi messaggi anche se il primo è spuntato) però non
funziona più la select distinct e gli username vengono visualizzati più volte...

La pagina è la seguente: (stavo provando anche con mRs2 ma forse non entra nell EOF)

 <%Set conn = Server.CreateObject("ADODB.Connection")conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")set oRs= Server.CreateObject("ADODB.Recordset")strsql="SELECT DISTINCT msgPvt.usernameAutore, msgpvt.idAutore, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&""oRs.Open strsql, Conn set mRs= Server.CreateObject("ADODB.Recordset")   strsqlmRs="SELECT * FROM Incontri"	  mRs.Open strsqlmRs, Conn	  set mRs2= Server.CreateObject("ADODB.Recordset")   strsqlmRs2="SELECT * FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&""	  mRs2.Open strsqlmRs2, Conn  %>  
</p><div align="center">     

   <%if not oRs.eof then%>     <table width="95%" border="1" align="center" cellpadding="2" cellspacing="5" bordercolor="#FFF8E8" class="unnamed2">     <%while not oRs.EOF%>      <tr>     <td width="15%"><div align="left"></div>      <div align="left"><span class="Stile1">           <% Response.Write oRs("usernameAutore") %>        </span></div></td>        <td width="15%"> <div align="left"></div>          <div align="center">          <%Response.Write (mRs.Fields.Item("DataNas").Value) & " anni" & ",  "if mRs.Fields.Item("Stato").Value=True Then Response.Write("single") else Response.Write("non sono single!") & "
"Response.Write "
"%>        </div></td>        <td width="12%" nowrap>		  <div align="center"><span class="Stile2">	        <% if mRs.Fields.Item("Login").Value=True Then Response.Write("Sono onLine") else Response.Write("Non sono onLine") & "
"%>        </span></div></td>        <td width="15%" nowrap><div align="center"><span class="Stile2">		    <% if mRs2.Fields.Item("letto").Value=True Then Response.Write("NON ci sono nuovi messaggi")else Response.Write("Ci sono nuovi messaggi") & "
"%>        </span></div></td>        <td width="6%" nowrap class="Stile1"><div align="right"> </div>                    <div align="right" class="Stile1">            <div align="center" class="Stile5">              <% Response.Write "<a href=/incontri/MessaggiDettaglio.asp?idAutore=" & (oRs.Fields.Item("idAutore").Value) & "&idDestinatario=" & (oRs.Fields.Item("idDestinatario").Value) & ">" & "Vedi &raquo;" & "</a>"%>                    </div>        </div></td>       </tr>           <%   oRs.MoveNext   wend   %>  </table>

GRAZIE!

[Marco7303]

Scusate!
ho sbagliato qualcosa nel mettere il code...

 <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver
 (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")

set oRs= Server.CreateObject("ADODB.Recordset")
strsql="SELECT DISTINCT msgPvt.usernameAutore, msgpvt.idAutore, msgpvt.idDestinatario FROM
 msgPvt WHERE msgPvt.idDestinatario="& Session
("ID_access")&""
oRs.Open strsql, Conn 

set mRs= Server.CreateObject("ADODB.Recordset")
   strsqlmRs="SELECT * FROM Incontri"
	  mRs.Open strsqlmRs, Conn
	  
set mRs2= Server.CreateObject("ADODB.Recordset")
   strsqlmRs2="SELECT * FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&""
	  mRs2.Open strsqlmRs2, Conn  
%>
  

</p>
<div align="center">
     


   <%if not oRs.eof then%>
     <table width="95%" border="1" align="center" cellpadding="2" cellspacing="5"
 bordercolor="#FFF8E8" class="unnamed2">
     <%while not oRs.EOF%>
      <tr>
 
    <td width="15%"><div align="left"></div>
      <div align="left"><span class="Stile1">
           <% Response.Write oRs("usernameAutore") %>
        </span></div></td>
        <td width="15%"> <div align="left"></div>          <div align="center">
          <%
Response.Write (mRs.Fields.Item("DataNas").Value) & " anni" & ",  "
if mRs.Fields.Item("Stato").Value=True Then
 Response.Write("single") else Response.Write("non sono single!") & "
"

Response.Write "
"
%>
        </div></td>
        <td width="12%" nowrap>		  <div align="center"><span class="Stile2">
	        <% if mRs.Fields.Item("Login").Value=True Then Response.Write("Sono onLine") 
else Response.Write("Non sono onLine") & "
"%>
        </span></div></td>
        <td width="15%" nowrap><div align="center"><span class="Stile2">
		    <% if mRs2.Fields.Item("letto").Value=True Then 
Response.Write("NON ci sono nuovi messaggi")
else Response.Write("Ci sono nuovi messaggi") & "
"%>
        </span></div></td>
        <td width="6%" nowrap class="Stile1"><div align="right"> </div>          
          <div align="right" class="Stile1">
            <div align="center" class="Stile5">
              <% Response.Write "<a href=/incontri/MessaggiDettaglio.asp?idAutore=" 
& (oRs.Fields.Item("idAutore").Value)
 & "&idDestinatario=" & (oRs.Fields.Item("idDestinatario").Value) & ">" & "Vedi &raquo;" & "</a>"%>        
            </div>
        </div></td>
       </tr>      
     <%
   oRs.MoveNext
   wend
   %>
  </table>