Originariamente inviato da Mems
Ci credo, ma prova a mettere il controllo...
non da errore ma lascia il campo vuoto...invece i dati ci sono!


ti metto tutto il codice, perche forse prima ho omesso alcune cose:

codice:
'-------------splitto il codiceagente-----------------
strIdagente = request.Form("idAgente")
arr_id = split(strIdagente, ",")
for i = 0 to UBound(arr_id)
'--------dati agente -----------
set rs = server.CreateObject("adodb.recordset")
strSQL = "SELECT * FROM tabagente WHERE codiceagente = '"&arr_id(i)&"'"
rs.open strSQL, objConn, 0, 3
'------------lista sub agenti--------------------------
set rs1 = server.CreateObject("adodb.recordset")
strSQL1 = "SELECT codiceagente FROM tabagente WHERE collegato = '"&arr_id(i)&"'"
rs1.open strSQL1, objConn, 0, 3
'------------numero contratti a buon fine--------------------
set rs2 = server.CreateObject("adodb.recordset")
strSQL2 = "SELECT SUM (usim) AS tot_cont FROM tabcontratto WHERE codiceagente = '"&arr_id(i)&"' AND accettato = true"
rs2.open strSQL2, objConn, 0, 3
'--------------totale contratti------------------------
set rs3 = server.CreateObject("adodb.recordset")
strSQL3 = "SELECT SUM (usim) AS tot_cont FROM tabcontratto WHERE codiceagente = '"&arr_id(i)&"' "
rs3.open strSQL3, objConn, 0, 3
%>
    <table width="60%"  border="1" cellpadding="0" cellspacing="0"> 
       <tr> 
        <td colspan="3"><div align="center">VISUALIZZA AGENTE</div></td> 
      </tr> 
       <tr> 
        <td colspan="2">Codice Agente </td> 
        <td width="33%"><%=(rs.Fields.Item("codiceagente").value)%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Livello</td> 
        <td> <%=rs.Fields.Item("livello").value%> </td> 
      </tr> 
       <tr> 
        <td colspan="2"> <%if rs.Fields.Item("livello").value <> "1" then
			response.Write("Collegato ad agente")
			response.Write"</td>"
            response.Write "<td>"
			response.Write (rs.Fields.Item("collegato").value)
			else
			response.Write("Subagenti collegati")
			response.Write"</td>"
            response.Write "<td>"
			do while not rs1.eof
			response.Write (rs1.Fields.Item("codiceagente").value &"
")
			subAgente = subAgente &"'"& rs1.Fields.Item("codiceagente").value&"'," 
			rs1.movenext
			loop
			end if
			
			%> 
 </td> 
      </tr> 
       <tr> 
        <td colspan="2">Data inizio contratto </td> 
        <td><%=rs.Fields.Item("datainizio").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Data fine contratto </td> 
        <td><%=rs.Fields.Item("datafine").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2"></td> 
        <td></td> 
      </tr> 
       <tr> 
        <td colspan="2">ANAGRAFICA AGENTE </td> 
        <td></td> 
      </tr> 
       <tr> 
        <td colspan="2">Nome</td> 
        <td><%=rs.Fields.Item("nomea").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Cognome</td> 
        <td><%=rs.Fields.Item("cognomea").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Indirizzo</td> 
        <td><%=rs.Fields.Item("indirizzoa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Citt&agrave;</td> 
        <td><%=rs.Fields.Item("cittaa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">CAP</td> 
        <td><%=rs.Fields.Item("capa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Provincia</td> 
        <td><%=rs.Fields.Item("provinciaa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Nazione</td> 
        <td><%=rs.Fields.Item("nazionea").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">E-Mail</td> 
        <td><%=rs.Fields.Item("emaila").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Telefono</td> 
        <td><%=rs.Fields.Item("tela").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Cellulare</td> 
        <td><%=rs.Fields.Item("cela").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Fax</td> 
        <td><%=rs.Fields.Item("faxa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">Codice Fiscale </td> 
        <td><%=rs.Fields.Item("cfa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2">P.IVA</td> 
        <td><%=rs.Fields.Item("pivaa").value%></td> 
      </tr> 
       <tr> 
        <td colspan="2"></td> 
        <td></td> 
      </tr> 
       <tr> 
        <td colspan="2">DATI DALL' INIZIO </td> 
        <td></td> 
      </tr> 
       <tr> 
        <td colspan="2"></td> 
        <td> </td> 
      </tr> 
       <tr> 
        <td colspan="2">Totale usim </td> 
        <td><%
			'do while not rs3.eof
			if rs3.Fields.Item("tot_cont").value <> "" then
			response.Write(rs3.Fields.Item("tot_cont").value)
			else
			response.Write("0")
			end if
			'rs3.movenext
			'loop
			%> </td> 
      </tr> 
       <tr> 
        <td colspan="2">Usim a buon fine </td> 
        <td><%
			'do while not rs2.eof
			if rs2.Fields.Item("tot_cont").value <> "" then
			response.Write(rs2.Fields.Item("tot_cont").value)
			else
			response.Write("0")
			end if
			'rs2.movenext
			'loop
			%></td> 
      </tr> 
       <tr> 
        <td colspan="2"></td> 
        <td></td> 
      </tr>
	  </table>
	  <%
rs.Close
Set rs = Nothing
rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
rs3.Close
Set rs3 = Nothing
next%>