function urldecode(encodestr) 

      newstr="" 

      havechar=false 

      lastchar="" 

      for i=1 to len(encodestr) 

        char_c=mid(encodestr,i,1) 

        if char_c="+" then 

          newstr=newstr & " " 

        elseif char_c="%" then 

          next_1_c=mid(encodestr,i+1,2) 

          next_1_num=cint("&H" & next_1_c) 

          if havechar then 

            havechar=false 

            newstr=newstr & chr(cint("&H" & lastchar & next_1_c)) 

          else 

            if abs(next_1_num)<=127 then 

              newstr=newstr & chr(next_1_num) 

            else 

              havechar=true 

              lastchar=next_1_c 

            end if 

          end if 

          i=i+2 

        else 

          newstr=newstr & char_c 

        end if 

      next 

      urldecode=newstr 

    end function