Dim Job As HttpJob
Job.Initialize(dummy, Me)
Job.JobName = "AddToCart"
Job.Tag = akt_art.Get("artID")
Job.download2("http://domain.tld/b4a.php", Array As String( _
"action", "AddToCart", _
"DeviceID", DeviceID, _
"SimSerialNumber", SimSerialNumber, _
"SubscriberID", SubscriberID, _
"artID", akt_art.Get("artID"), _
"lager", dropdown_lager.GetItem(dropdown_lager.SelectedIndex), _
"anzahl", edt.Text _
))