Dim name As String = "Name1"
Dim Meetplaats As Int =12''= waardecheck(txtProefNum)
For i=0 To Starter.kvs.ListKeys.Size-1
'' For i=Starter.kvs.ListKeys.Size-1 To 0 Step -1
Dim job2 As HttpJob
job2.Initialize("Job2", Me)
Dim itm As Int = Starter.kvs.ListKeys.Get(i)
Dim nummer As Int = Starter.kvs.Get(itm)
Dim uren As Int = itm/360000
Dim restant As Int =itm Mod 360000
Dim minuten As Int = restant/6000
restant = restant Mod 6000
Dim seconden As Int = restant/100
Dim hondersten = restant Mod 100
Dim carn As Int = nummer
Dim past As Int = itm
Dim past1 As String = uren & ":" & minuten & ":" & seconden & "." & hondersten ''"11:11:11.23"
Dim str As String = "https://xxxx.nl/xxxx/xxxxxx.php?Name=" & name & "&Point=" & Meetplaats & "&Number=" & carn & "&PassingTime2=" & past1 & "&PassingTime=" & past
job2.PostString(str,"")
Next