logo

New Response

« Return to the main article

You are replying to:

    • avatar
    • dugu9j
    • Posted on Wed 12 May 2004

    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

Your Comments

Name:
E-mail:
(optional)
Website:
(optional)
Comment: