codice:
set objconn = server.CreateObject("adodb.connection")
objconn.open MM_connh3g_STRING

strIdagente = request.Form("idAgente")
arr_id = split(strIdagente, ",")

for i = 0 to UBound(arr_id)

set rs = server.CreateObject("adodb.recordset")
strSQL = "SELECT * FROM tabagente WHERE codiceagente = '"&arr_id(i)&"'"
rs.open strSQL, objConn, 0, 3

if not rs.eof then
response.write rs.Fields.Item("codiceagente").value & "
"
else
response.write "nessun dato corrispondente
"
end if

set rs1 = server.CreateObject("adodb.recordset")
strSQL1 = "SELECT codiceagente FROM tabagente WHERE collegato = '"&arr_id(i)&"'"
rs1.open strSQL1, objConn, 0, 3

if not rs1.eof then
response.write rs1.Fields.Item("codiceagente").value & "
"
else
response.write "nessun dato corrispondente...
"
end if

rs1.close
set rs = nothing

rs.close
set rs = nothing

next

objConn.close
set objConn = nothing