GetUrlParam

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

Note: This function requires the UrlDecode function.

code format="vb" ' 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

code