Dim richiesta(100)
for R = 1 to 100
if CInt(request("var" & R)) > 0 then
richiesta(R) = CInt(request("var" & R))
end if
next


Roby