Subversion Repositories DevTools

Rev

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

Rev 119 Rev 4955
Line 32... Line 32...
32 
Function QSTR_All
 32 
Function QSTR_All
33 
	'QSTR_All = "&" & Request.ServerVariables("QUERY_STRING")
33 
	'QSTR_All = "&" & Request.ServerVariables("QUERY_STRING")
34 
	QSTR_All = "&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")
34 
	QSTR_All = "&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")
35 
End Function
 35 
End Function
36 
 
 36 
 
- 
 
 37 
Function QSTR_FullQuery
- 
 
 38 
	QSTR_FullQuery = Request.ServerVariables("QUERY_STRING")
- 
 
 39 
    If QSTR_FullQuery <> "" Then
- 
 
 40 
        QSTR_FullQuery = "&" & QSTR_FullQuery
- 
 
 41 
    End If
- 
 
 42 
End Function
- 
 
 43 
 
37 
Function Persists_Query_String ( sNewParamVals )
 44 
Function Persists_Query_String ( sNewParamVals )
38 
	Dim aParameters, sParam, tempSTR
 45 
	Dim aParameters, sParam, tempSTR
39 
	tempSTR = ""
 46 
	tempSTR = ""
40 
	If NOT IsEmpty(sNewParamVals) Then
 47 
	If NOT IsEmpty(sNewParamVals) Then
41 
		For Each sParam In Request.QueryString
 48 
		For Each sParam In Request.QueryString