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.