scusate ma qualcuno mi sa aiutare?![]()
![]()
ho cercato sul forum ma non ho trovato la suluzione che fa al mio caso:
io ho un recordset che estrae tutti i campi della tabella e ho necessità che il valore mail contenuto nel recordset sia memorizzato in un array per poter inviare una sola mail a più destinatari, come posso fare?
vi posto il codice
<%if not (recordset1.eof and recordset1.bof) then%>
<table width="100%" border="1" bordercolor="#999999">
<%while not recordset1.eof%>
<%
Cliente = Recordset1.Fields.Item("ID_AGENTE").Value
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "select * from T_Clienti where User = '"& Cliente &"'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<tr>
<td width="20%" class="testopiccolo">Agenzia</td>
<td width="20%" class="testopiccolo">Indirizzo</td>
<td width="15%" class="testopiccolo">Comune</td>
<td width="10%" class="testopiccolo">Telefono</td>
<td width="15%" class="testopiccolo">Cellulare</td>
<td width="20%" class="testopiccolo">Email</td>
</tr>
<tr>
<td width="20%" class="scritteLatoSx"><%=recordset2.fields.item("C liente").value%></td>
<td width="20%" class="scritteLatoSx"><%=recordset2.fields.item("I ndirizzo").value%></td>
<td width="15%" class="scritteLatoSx"><%=recordset2.fields.item("C omune").value%></td>
<td width="10%" class="scritteLatoSx"><%=recordset2.fields.item("T el").value%></td>
<td width="15%" class="scritteLatoSx"><%=recordset2.fields.item("C ell").value%></td>
<td width="20%" class="scritteLatoSx"><%=recordset2.fields.item("E mail").value%></td>
</tr>
<%recordset1.movenext()
wend
%>
</table>
GRAZIE A TUTTI