<%
'=====================================================
'						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("RELEASEMANAGER_MEMORY")(SSpar) = Request(SSpar)(1)
		ElseIf SScookie = "N" Then
			Response.Cookies("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("RELEASEMANAGER_MEMORY")(SSpar)) Then
			QStrPar = Request.Cookies("RELEASEMANAGER_MEMORY")(SSpar)
		End If
	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 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
%>
<%
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 ( "N", "localscript", QSTR )
'Call Store_QSTR_parameter ( "extpkg", QSTR )
'Call Store_QSTR_parameter ( "extrtag_id", QSTR )
%>