Dim job As HttpJob
job.Initialize("Wahtever", Me)
' add the NameValues to a map
Dim m As Map
m.Initialize
m.Put("JSON", JSONString)
' add the files to a list
Dim files As List
files.Initialize
Dim fd1 As MultipartFileData
fd1.Initialize
fd1.KeyName = "UploadedFile1"
fd1.Dir = File.DirInternal
fd1.FileName = "MyFile.jpg"
fd1.ContentType = "image/jpg"
files.Add(fd1)
job.PostMultipart(Main.webSite, m, files)