ASP Classic split URL QueryString and have a count for each value

The need to split a QueryString and have a count beside each value was needed in this most recent addition to our music site.
In the actual project, I am inserting the data into a SQL Server« database.
So I needed a count for each item to build the Order structure to reassemble the QueryString in the proper order.
The website is so massive and complex that this was the easiest and fastest way to perform an actual page count.
Example:
FullURL: Main.asp?Type=Code&CodeID=1&Visitor=4
Rewrite: Code/1/4

Order	Value
1	Code
2	1
3	4

An example code for the project.
(Copy the code, paste it into a new file, save it as Main.asp, and run it with a QueryString Main.asp?Type=Code&CodeID=1&Visitor=4)
<% Function URLDecode(EncodedString) Dim oRegEx, sEncoded, sDecoded ' Replace the + signs first, which represent spaces in RFC-1866 encoding sEncoded = Replace(EncodedString, "+", " ") ' Use a RegExp object to find and replace %xx hex codes Set oRegEx = New RegExp oRegEx.Pattern = "%([0-9A-Fa-f]{2})" oRegEx.Global = True sDecoded = oRegEx.Replace(sEncoded, GetChar) URLDecode = sDecoded Set oRegEx = Nothing End Function ' Get the raw query string (e.g., "Main.asp?Type=Code&CodeID=1&Visitor=4") rawQueryString = Request.ServerVariables("QUERY_STRING") If rawQueryString <> "" Then ' Split the string into an array of parameters using the ampersand as a separator paramsArray = Split(rawQueryString, "&") RNum = 1 ' Loop through each parameter For Each param In paramsArray      ' Split each parameter into a key and a value using the equals sign keyValue = Split(param, "=") If UBound(keyValue) = 1 Then strColName = URLDecode(keyValue(0)) strColValue = URLDecode(keyValue(1)) Response.Write("Num: " & RNum & ", Value: " & value & " ") ' To insert the record into a Database Table. ' Add the RNum. ' Example ' getPD.Parameters.Append getPD.CreateParameter("@Order", adInteger, adParamInput, , RNum) RNum = RNum + 1 ' Set to the bottom of all your code. End If Next End If %>