fix: handle users with no subscription

Author: Garrett3Nelson

utils/http/http.simba

@@ -328,10 +328,14 @@ var
 begin
   jsonArray := Self.Select('profiles', 'subscription', 'id,date_start,date_end', ['id=eq.' + Self.User.ID]);
 
+  if jsonArray.length = 0 then exit();
+
   for i := 0 to jsonArray.High() do
   begin
     with jsonArray.getJSONObject(i) do
     begin
+      if not Has('product') then continue;
+
       sub.Product := getString('product');
       sub.DateStart := getString('date_start');
       sub.DateEnd := getString('date_end');
@@ -357,10 +361,14 @@ var
 begin
   jsonArray := Self.Select('profiles', 'free_access', '*', ['id=eq.' + Self.User.ID]);
 
+  if jsonArray.length = 0 then exit();
+
   for i := 0 to jsonArray.High() do
   begin
     with jsonArray.getJSONObject(i) do
     begin
+      if not Has('product') then continue;
+
       sub.Product := getString('product');
       sub.DateStart := getString('date_start');
       sub.DateEnd := getString('date_end');