For i=0 To list2.Size-1
Dim a As MyData
a=list2.Get(i)
Dim job As HttpJob
job.Initialize("",Me)
job.Download2(URL& "save_data.php", _
Array As String("UserID",user_no,"desc",a.desc,"price",a.price, _
"kind",a.k,"date_b", _
a.date,"status",status))
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
log("==")
end if
job.Release
Next