function Product_urls(response as string) As object
'response = catalogs()
json = ParseJSON(response)
product_urls = createobject("roList")
for each element in json.ProductList
elements_urls = element.PreviewList[0]
if type(elements_urls) <> "Invalid"
elements_urls = element.PreviewList[0].URL
product_urls.AddTail(elements_urls)
else
elements_urls = ""
product_urls.AddTail(elements_urls)
end if
END for
return product_urls
end function