Return the named parameter from the URL or "" if the parameter is not found.

Note: This function requires the UrlDecode function.

' GetUrlParam - function to get the named URL parameter
' =====================================================

function GetUrlParam$(key$)
    for i = 1 to 999
        w$ = word$(UrlKeys$, i, "&")
        if w$ = "" then exit for
        k$ = word$(w$, 1, "=")
        if upper$(key$) = upper$(k$) then
            GetUrlParam$ = word$(w$, 2, "=")
            exit for
        end if
    next
    GetUrlParam$ = UrlDecode$(GetUrlParam$)
end function