sub GetNextPair b%(), i as integer, n$, value$ 'All the information we need is here
 local Integer StartPos, EndPos, StrLen, CharPos
 local String TmpString
 do 'Remove any Header data that comes through from browsers
   EndPos = linstr(b%(), chr$(13),1) 'Search for a LF character
   if EndPos <> 0 then 'We found a LF char
     longstring trim b%(), EndPos 'Trim that line from the header
   else
     exit do 'Otherwise, no more LF chars... get out of the loop
   end if
 loop 'Go and look for another LF char
 EndPos = linstr(b%(), "&", 1) 'All done, now look for an & so we can get the data
 StrLen = EndPos - 1 'Calculate the length of the data
 if EndPos = 0 then 'if there is no & found, we've reached the end
   i = 0 'Set the value to 0 and pass back to caller
   exit sub 'Get out of here, we're all done
 end if
 TmpString = lgetstr$(b%(), 1, StrLen) 'Extract a string to work on
 'print TmpString 'For debug
 CharPos = instr(TmpString, "=") 'Get the postion of the = so we can split the string into 2
 n$ = left$(TmpString,CharPos-1) 'Get the left part of the string and assign it to 'Name'
 value$ = ConvertStr(mid$(TmpString,CharPos+1)) 'Convert the right part of the string and assign it to 'Value'
 'print CharPos, n$, value$ 'For debug
 longstring trim b%(), StrLen + 1 'Trim off the data that we just worked on, ready for the next manipulation
end sub

function ConvertStr(TmpStr as string) as string 'Cleanup the Raw String
 local integer i
 local TmpChr as string
 for i = 1 to len(TmpStr) 'Determine length of the string
   TmpChr = mid$(TmpStr, i, 1) 'Get the character
   if TmpChr = "+" then TmpChr = " " 'Any + chars are replaced with real spaces
   if TmpChr = "%" then 'A % char indicates a 'special' char
     TmpChr = mid$(TmpStr, i+1, 2) 'get the next 2 character (to use as a HEX number)
     If TmpChr = "22" then TmpChr = "27" 'If it's double quote, change it to single quote
     TmpChr = chr$(val("&H" + TmpChr)) 'change to a HEX value, and convert into a character
     i=i+2 'Add 2 to the pointer, to keep counting the correct character sequence
   end if
   ConvertStr = ConvertStr + TmpChr 'Add the new character and build up the clean string
 next i
end function 'All done, pass the new string back to the function call