<%
'=====================================================
'						QSTR
'=====================================================
' List all your query string parameters which need to be persistant
%>
<%
Sub Store_QSTR_parameter ( SScookie, SSpar, SSQSTR )
	If NOT IsEmpty(Request( SSpar )) Then
		'SSQSTR = SSQSTR &"&"& SSpar &"=" & Request(SSpar)(1)
		'Store to cookie
		If SScookie = "Y" Then
			Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = Request(SSpar)(1)
		ElseIf SScookie = "N" Then
			Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = ""
		End If
		
	End If
End Sub

Function QStrPar ( SSpar )
	If NOT IsEmpty(Request( SSpar )) Then
		QStrPar = Request(SSpar)(1)
	Else
		If NOT IsEmpty(Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)) Then
			QStrPar = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)
		End If
	End If
End Function

Function QStrParDefault ( SSpar, DefVal )
	If NOT IsEmpty(Request( SSpar )) Then
		QStrParDefault = Request(SSpar)(1)
	ElseIf NOT IsEmpty(Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)) Then
		QStrParDefault = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)
    Else
        QStrParDefault = DefVal
	End If
End Function


Function QSTR_All
	'QSTR_All = "&" & Request.ServerVariables("QUERY_STRING") 
	QSTR_All = "&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") 
End Function

Function QSTR_FullQuery
	QSTR_FullQuery = Request.ServerVariables("QUERY_STRING") 
    If QSTR_FullQuery <> "" Then
        QSTR_FullQuery = "&" & QSTR_FullQuery
    End If
End Function

Function Persists_Query_String ( sNewParamVals )
	Dim aParameters, sParam, tempSTR
	tempSTR = ""
	If NOT IsEmpty(sNewParamVals) Then
		For Each sParam In Request.QueryString
			If InStr ( sNewParamVals, sParam &"=") < 1 Then
				tempSTR = tempSTR & sParam &"="& Request( sParam ) &"&"
			End If
		Next
		Persists_Query_String = tempSTR & sNewParamVals
		
	Else
		Persists_Query_String = Request.ServerVariables("QUERY_STRING")
		
	End If
	
End Function

'   Reform the query string
'   Replace/append items in sNewParamVals
'   Remove items from sRemoveParams  
Function Persists_Query_String_Trim ( sNewParamVals, sRemoveParams )
	Dim aParameters, sParam, tempSTR, tempRemove
	tempSTR = ""
    tempRemove = "," & sRemoveParams & ","
     
    For Each sParam In Request.QueryString
        If InStr ( sNewParamVals, sParam &"=") < 1 Then
            If  InStr(tempRemove, ","& sParam & "," ) < 1 Then
                tempSTR = tempSTR & sParam &"="& Request( sParam ) &"&"
            End If
        End If
    Next
    Persists_Query_String_Trim = tempSTR & sNewParamVals
            
End Function

%>
<%
Dim QSTR
QSTR = ""

'Call Store_QSTR_parameter ( "hidelocal", QSTR )
'Call Store_QSTR_parameter ( "showext", QSTR )
Call Store_QSTR_parameter ( "N", "tab", QSTR )
'Call Store_QSTR_parameter ( "N", "pv_id", QSTR )
'Call Store_QSTR_parameter ( "N", "group_id", QSTR )
'Call Store_QSTR_parameter ( "N", "rtag_id", QSTR )
Call Store_QSTR_parameter ( "Y", "Bshow", QSTR )
Call Store_QSTR_parameter ( "Y", "Pshow", QSTR )
'Call Store_QSTR_parameter ( "Y", "OLshow", QSTR )
Call Store_QSTR_parameter ( "Y", "Pview", QSTR )
Call Store_QSTR_parameter ( "Y", "Dview", QSTR )
'Call Store_QSTR_parameter ( "N", "localscript", QSTR )
'Call Store_QSTR_parameter ( "extpkg", QSTR )
'Call Store_QSTR_parameter ( "extrtag_id", QSTR )
%>