codice:
id=1,2,3,4,222222


if instr(id,",")>0 then
codici=split(id,",")

redim arrayCodici(ubound(codici))
for i=0 to ubound(codici)
if codici(i)<>"" then
arrayCodici(i)=codici(i)
end if
next

for i=lbound(arrayCodici) to ubound(arrayCodici)
response.write arrayCodici(i)
next

else

id1=id
response.write id1

end if