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