Subversion Repositories DevTools

Rev

Rev 5590 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5590 Rev 5933
Line 66... Line 66...
66 
		Persists_Query_String = Request.ServerVariables("QUERY_STRING")
 66 
		Persists_Query_String = Request.ServerVariables("QUERY_STRING")
67
67
68 
	End If
 68 
	End If
69
69
70 
End Function
 70 
End Function
- 
 
 71 
 
- 
 
 72 
'   Reform the query string
- 
 
 73 
'   Replace/append items in sNewParamVals
- 
 
 74 
'   Remove items from sRemoveParams
- 
 
 75 
Function Persists_Query_String_Trim ( sNewParamVals, sRemoveParams )
- 
 
 76 
	Dim aParameters, sParam, tempSTR, tempRemove
- 
 
 77 
	tempSTR = ""
- 
 
 78 
    tempRemove = "," & sRemoveParams & ","
- 
 
 79
- 
 
 80 
    For Each sParam In Request.QueryString
- 
 
 81 
        If InStr ( sNewParamVals, sParam &"=") < 1 Then
- 
 
 82 
            If  InStr(tempRemove, ","& sParam & "," ) < 1 Then
- 
 
 83 
                tempSTR = tempSTR & sParam &"="& Request( sParam ) &"&"
- 
 
 84 
            End If
- 
 
 85 
        End If
- 
 
 86 
    Next
- 
 
 87 
    Persists_Query_String_Trim = tempSTR & sNewParamVals
- 
 
 88
- 
 
 89 
End Function
- 
 
 90 
 
71 
%>
 91 
%>
72 
<%
 92 
<%
73 
Dim QSTR
 93 
Dim QSTR
74 
QSTR = ""
 94 
QSTR = ""
75 
 
 95