' ****** START INCLUDE GetUrlKey$ ******
FUNCTION GetUrlKey$(key$)
  GetUrlKey$ = ""
  keyPos% = INSTR( UCASE$(UrlQueryString$), [ UCASE$(key$) + "=" ] )
  IF keyPos% THEN
      step1$ = RIGHT$( UrlQueryString$, [ LEN(UrlQueryString$) - keyPos% - LEN(key$) ] )
      step2% = INSTR(step1$, "&")
      GetUrlKey$ = IFF( step2%, [ LEFT$(step1$, step2% - 1 ) ], step1$)
  END IF
END FUNCTION
'  ****** END INCLUDE GetUrlKey$ ******

PRINT "URL Query String: " + UrlQueryString$

PRINT
PRINT "param1: " + GetUrlKey$("param1")
PRINT "param2: " + GetUrlKey$("param2")