Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5020
Line 6... Line 6...
6 
%>
 6 
%>
7 
<%
 7 
<%
8 
Sub Store_QSTR_parameter ( SScookie, SSpar, SSQSTR )
 8 
Sub Store_QSTR_parameter ( SScookie, SSpar, SSQSTR )
9 
	If NOT IsEmpty(Request( SSpar )) Then
 9 
	If NOT IsEmpty(Request( SSpar )) Then
10 
		'SSQSTR = SSQSTR &"&"& SSpar &"=" & Request(SSpar)(1)
 10 
		'SSQSTR = SSQSTR &"&"& SSpar &"=" & Request(SSpar)(1)
11
- 
 
12 
		'Store to cookie
 11 
		'Store to cookie
13 
		If SScookie = "Y" Then
 12 
		If SScookie = "Y" Then
14 
			Response.Cookies("RELEASEMANAGER_MEMORY")(SSpar) = Request(SSpar)(1)
 13 
			Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = Request(SSpar)(1)
15 
		ElseIf SScookie = "N" Then
 14 
		ElseIf SScookie = "N" Then
16 
			Response.Cookies("RELEASEMANAGER_MEMORY")(SSpar) = ""
 15 
			Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = ""
17 
		End If
 16 
		End If
18
17
19 
	End If
 18 
	End If
20 
End Sub
 19 
End Sub
21 
 
 20 
 
22 
Function QStrPar ( SSpar )
 21 
Function QStrPar ( SSpar )
23 
	If NOT IsEmpty(Request( SSpar )) Then
 22 
	If NOT IsEmpty(Request( SSpar )) Then
24 
		QStrPar = Request(SSpar)(1)
 23 
		QStrPar = Request(SSpar)(1)
25 
	Else
 24 
	Else
26 
		If NOT IsEmpty(Request.Cookies("RELEASEMANAGER_MEMORY")(SSpar)) Then
 25 
		If NOT IsEmpty(Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)) Then
27 
			QStrPar = Request.Cookies("RELEASEMANAGER_MEMORY")(SSpar)
 26 
			QStrPar = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)
28 
		End If
 27 
		End If
29 
	End If
 28 
	End If
30 
End Function
 29 
End Function
31 
 
 30 
 
32 
Function QSTR_All
 31 
Function QSTR_All