timer = 0
     ArrElements = LSplit(ConnData(), "&")
     ? "Elapsed time stamp " + str$(timer)
     for i = 1 to ArrElements
       ? "Next element : ";
       ? SplitArr(i)
     next i

function LSplit(LSplitStr() as integer, Delimiter as string) as integer
 local integer i = 0, j = 0, NextPos = 0, LastPos = 0
 if LCheck(LSplitStr(), Delimiter) = 0 then 'check if we have valid parameters
   exit function
 endif
 do
   NextPos = linstr(LSplitStr(), Delimiter, NextPos + 1) 'find the next delimiter
   if NextPos = 0 then 'if it's not found
     exit do 'there's nothing more to look for, get out
   else 'otherwise
     j = j + 1 'add to the variable
   endif
 loop 'go and look again
 on error skip 'in case the array doesn't exist
 erase SplitArr() 'get rid of any existing array
 dim string SplitArr(j + 1) 'create a new array for the split results... +1 for the last result
 for j = 1 to bound(SplitArr()) '1 to the number of elements in the array
   NextPos = linstr(LSplitStr(), Delimiter, LastPos + 1) 'get the next delimiter position
   if NextPos = 0 then 'if there's none left
     NextPos = llen(LSplitStr()) + 1 'set the nextpos to the end of the string (+1 to be subtracted later)
   endif
   SplitArr(j) = lgetstr$(LSplitStr(), LastPos + 1, NextPos - LastPos) 'add the string to the array
   on error skip
   if right$(splitarr(j), 1) = delimiter then
     SplitArr(j) = left$(SplitArr(j), len(SplitArr(j)) - 1) 'remove the delimter char from the stored string
   endif
   LastPos = NextPos 'reset the variables for the next loop around
   LSplit = j 'keep track of how many elements there are
 next j
end function

function LCheck(LSplitStr() as integer, Delimiter as string) as integer
 if llen(LSplitStr()) = 0 then 'zero length string
   ? "Longstring is required" 'as it says
   LCheck = 0
   exit function 'get out
 endif
 if Delimiter = "" then 'no delimiter
   ? "Delimiter is required" 'as it says
   LCheck = 0
   exit function 'get out
 endif
 if len(Delimiter) > 1 then
   ? "Too many characters in the delimiter"
   LCheck = 0
   exit function
 endif
 if linstr(LSplitStr(), Delimiter, 1) = 0 then
   ? "Delimiter char not found" 'as it says
   LCheck = 0
   exit function 'get out
 endif
 LCheck = 1
end function