Sub PutQSIntoList(parameters List As String, querystring As String)
  Dim pos As Integer
  Dim listname As String
  Dim listvalue As String
  
  pos = Instr(querystring,"&")
  
  While pos > 0
    listname = Strleft(querystring,"=")
    listvalue = Strleft(Strright(querystring,"="),"&")
    
    parameters(listname) = listvalue
    
    querystring = Strright(querystring,"&")
    
    pos = Instr(querystring,"&")
  Wend
  
  listname = Strleft(querystring,"=")
  listvalue = Strright(querystring,"=")
  
  parameters(listname) = listvalue
End Sub

Simply pass session.DocumentContext.Query_String_Decoded(0) as the second variable and you will get a list of parameters that are easily accessible and ready for use in the rest of your script.Separating QueryString Parameters

3; 1; 1; 1; 1; 0; 0; 1; 0 Access Denied