Create Dictionary from query string

ConstructQueryStringDictionary.vb

' Make dictionary object containing query string key name based on specified query string
function ConstructQueryStringDictionary(queryString)
	Dim d
	Set d = Server.CreateObject("Scripting.Dictionary")

	dim keyValues
	keyValues = Split(queryString, "&", -1, 1)
	
	For Each keyValue In keyValues
		dim keyName, value, lenKeyValue
		
		keyName = ""
		value = ""
		lenKeyValue = Len(keyValue)

		If Len(keyValue) > 0 Then
			dim equalSignPosition
			equalSignPosition = InStr(1, keyValue, "=", 1)
			If equalSignPosition > 0 Then
				keyName = Left(keyValue, equalSignPosition - 1)
				value = Right(keyValue, Len(keyValue) - equalSignPosition)
			End if
		End If

		If Len(keyName) Then
			d.Add keyName, value
		End If
	Next

	ConstructQueryStringDictionary = d
end function