ciclo e WHERE IN

[burruchaga]

l'elenco dovrebbe essere separeato da virgole.

cmq prova con

strSQLsub="SELECT codiceagente FROM tabagente WHERE collegato = '"&arr_id(y)&"'"

if livello = 2 then
strTotsub = "0"
else


set rs5 = server.CreateObject("adodb.recordset")
strSQL5 = "SELECT SUM(fissoxl1) AS strTotsub FROM tabcontratto WHERE codiceagente IN (("&strSQLsub&")) AND  accettato = true AND datacont BETWEEN #"&strdaData&"# AND #"&straData&"#"
rs5.open strSQL5, objConn, 0, 3
response.Write(strSql5)
strTotsub = rs5.fields.item("strTotsub").value
rs5.Close
Set rs5 = Nothing
end if