get you want by functin from "Query_String_Decoded" :
Function GetParameter(Byval paramName As String, Byval queryString As String)
As String
' Given a QUERY_STRING, this function returns the value of the specified
parameter. For example,
' GetParameter("size", "color=red&size=10&qty=4") returns "10".
Dim startPos As Integer , endPos As Integer , skipLen As Integer
queryString = "&" + queryString + "&" + paramName + "=" + "&"
paramName = Ucase("&" + paramName + "=")
skipLen = Len(paramName)
startPos = Instr(Ucase(queryString), paramName) + skipLen
endPos = Instr(startPos, queryString, "&")
GetParameter = Mid(queryString, startPos, endPos-startPos)
End Function
get you want by functin from "Query_String_Decoded" :
Function GetParameter(Byval paramName As String, Byval queryString As String) As String ' Given a QUERY_STRING, this function returns the value of the specified parameter. For example, ' GetParameter("size", "color=red&size=10&qty=4") returns "10". Dim startPos As Integer , endPos As Integer , skipLen As Integer queryString = "&" + queryString + "&" + paramName + "=" + "&" paramName = Ucase("&" + paramName + "=") skipLen = Len(paramName) startPos = Instr(Ucase(queryString), paramName) + skipLen endPos = Instr(startPos, queryString, "&") GetParameter = Mid(queryString, startPos, endPos-startPos) End Function