Mi sono incartato... ripartiamo da 0,,, (da impazzire!)

[KataKlism2002]

secondo loop??

l'if del secondo loop deve essere

if MyArrayString = "" then
  MyArrayString =  oRs2("usernameDestinatario")
else
  MyArrayString = "," &  oRs2("usernameDestinatario")
end if

(ho dimenticato di cambiare il nome del campo nel copia/incolla, ora va bene)

[Marco7303]

Aspetta...
Ti riallego la pagina che ho scritto perchè mi sa che l'avevi modificata in precedenza... adesso la pagina è così composta:

<%
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 FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&" order by msgPvt.usernameAutore"
oRs.Open strsql, Conn
set oRs2= Server.CreateObject("ADODB.Recordset")
strsql="SELECT DISTINCT msgPvt.usernameDestinatario, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idAutore="& Session("ID_access")&" order by msgPvt.usernameDestinatario"
oRs2.Open strsql, Conn

MyArrayString = ""

do while not oRs.Eof
  if MyArrayString = "" then
    MyArrayString = oRs("usernameAutore")
  else
    MyArrayString = "," & oRs("usernameAutore")
  end if
  oRs.moveNext()
loop

do while not oRs2.Eof
  if instr(MyArrayString,oRs2("usernameDestinatario")) = 0 then
    if MyArrayString = "" then
      MyArrayString = oRs2("usernameAutore")
    else
      MyArrayString = "," & oRs2("usernameAutore")
    end if
  end if
  oRs2.moveNext()
loop

%>
<table width="95%" border="1" align="center" cellpadding="2" cellspacing="5" bordercolor="#FFF8E8" class="unnamed2">
<%
if MyArrayString = "" then
%>
  <tr>
    <td width="15%"><div align="left"></div>
      <div align="left"><span class="Stile7">
         NESSUN MESSAGGIO!!
      </span></div></td>
        <td> <div align="left"></div>          <div align="center"><span class="Stile1">
        </span></div>          
        <div align="center"></div>          <div align="center"><span class="Stile2">
        </span></div></td>
        <td><span class="Stile2">
        </span></td>
        <td width="6%" nowrap class="Stile1"><div align="right"></div>          
          <div align="right" class="Stile1">
            <div align="center" class="Stile5"></div>
        </div></td>
      </tr>
<%
else
   MyArray = split(MyArrayString,",")
   for msgCounter = 0 to ubound(MyArray) -1
%>
  <tr>
    <td width="15%"><div align="left"></div>
      <div align="left"><span class="Stile7">
         <%=MyArray(MsgCounter)%>
      </span></div></td>
        <td> <div align="left"></div>          <div align="center"><span class="Stile1">
        </span></div>          
        <div align="center"></div>          <div align="center"><span class="Stile2">
        </span></div></td>
        <td><span class="Stile2">
        </span></td>
        <td width="6%" nowrap class="Stile1"><div align="right"></div>          
          <div align="right" class="Stile1">
            <div align="center" class="Stile5"></div>
        </div></td>
      </tr>
<%
  next
end if
%>

e questo è l'errore che da:

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/Incontri/Messaggi.asp, line 117

la riga 117 è la seguente:

MyArrayString = "," & oRs2("usernameAutore")

[Marco7303]

ho effettuato le dovute correzioni... la pagina viene caricata ma anche se nel dbase ci sono più nomi (quindi dovrebbe scrivere qualcosa, lo faceva anche prima) non scrive niente!

[KataKlism2002]

prova a scrivere dopo l'ultimo loop (il secondo)

response.write MyArrayString 
response.end

e dimmi se ti scrive a video la stringa con i nomi giusti seguiti da virgola...o se non ti scrive nulla

[Marco7303]

scrive:
,nome1

invece dovrebbe scrivere 3 nominativi

PS è un problema che io nella mia pagina (con dreamweaver) non vedo più la tabella disegnata?

[KataKlism2002]

oh mamma quanto sono stupido...

riscrivi i 2 loop così

do while not oRs.Eof
  if MyArrayString = "" then
    MyArrayString = oRs("usernameAutore")
  else
    MyArrayString = MyArrayString & "," & oRs("usernameAutore")
  end if
  oRs.moveNext()
loop

do while not oRs2.Eof
  if instr(MyArrayString,oRs2("usernameDestinatario")) = 0 then
    if MyArrayString = "" then
      MyArrayString = oRs2("usernameDestinatario")
    else
      MyArrayString = MyArrayString & "," & oRs2("usernameDestinatario")
    end if
  end if
  oRs2.moveNext()
loop

meglio che vado in pensione...

[Marco7303]

No ti prego non andare in pensione!

Adesso con il response.write scrive tutti e tre i nomi, ma se levo il response.write
compare il riquadro della tabella con soli 2 nomi (continua a non scrivere il terzo nome che è la persona che ha solo ricevuto un mio messaggio senza rispondermi!

[KataKlism2002]

no no, evidentemente nel ciclo FOR hai ancora il -1 dopo l'ubound.
rileva il -1 e funzionerà

[Marco7303]

Si Si Si!

Adesso FUNZIONA!

Grazie veramente immensamente

Senza te sarebbe rimasto perennemente irrisolto!

Grazie

PS è normale che con il dreamweaver non vedo più la tabella ma quando vedo la pagina con explorer la tabella viene disegnata?

[KataKlism2002]

mai usato dreamweaver in vita mia
non so aiutarti stavolta mi spiace

buon proseguimento