Dim url As String=Main.SystemDomainEndPoint & "?FLAG=SEARCH.SHOP&lat=" & x.ReadMap("lat") & "&lon=" & x.ReadMap("lon")
Dim jobSHOP As HttpJob
'jobSHOP.GetRequest.SetHeader("user-agent","webkit")
jobSHOP.Initialize("jobSHOP", Me)
jobSHOP.PostString(url, "")
jobSHOP.GetRequest.SetHeader("user-agent","webkit")
jobSHOP.GetRequest.SetHeader("host","autorizalo.inoba.com")