Subversion Repositories DevTools

Rev

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

Rev 5952 Rev 5957
Line 22... Line 22...
22 
pageName = split(Request("redirectionDestination"), "?")(0)
 22 
pageName = split(Request("redirectionDestination"), "?")(0)
23 
noteContents = Request("description")
 23 
noteContents = Request("description")
24 
 
 24 
 
25 
' Page Access Condition
 25 
' Page Access Condition
26 
If NOT objAccessControl.UserLogedIn Then
 26 
If NOT objAccessControl.UserLogedIn Then
- 
 
 27 
   Call Destroy_All_Objects
27 
   Response.Redirect( "../message.asp?msg=401-1")
 28 
   Response.Redirect( "../message.asp?msg=401-1")
28 
End If
 29 
End If
29 
%>
 30 
%>
30 
<%
 31 
<%
31 
'------------ Variable Definition -------------
 32 
'------------ Variable Definition -------------
Line 114... Line 115...
114 
%>
 115 
%>
115 
<%
 116 
<%
116 
'-----------------------  MAIN LINE  ---------------------------
 117 
'-----------------------  MAIN LINE  ---------------------------
117 
'--- Process submition ---
 118 
'--- Process submition ---
118 
call Update_Note ( parPv_id, parFRrtag_id, notecontents, Request("last_user") )
 119 
call Update_Note ( parPv_id, parFRrtag_id, notecontents, Request("last_user") )
- 
 
 120 
Call Destroy_All_Objects
119 
If Request("description") = "" Then
 121 
If Request("description") = "" Then
120 
   Response.Redirect("../"& Request("redirectionDestination"))
 122 
   Response.Redirect("../"& Request("redirectionDestination"))
121 
Else
 123 
Else
122 
   Response.Redirect("../"& Request("redirectionDestination") &"&saved=true")
 124 
   Response.Redirect("../"& Request("redirectionDestination") &"&saved=true")
123 
End If
 125 
End If
124 
 
 - 
 
125 
%>
 126 
%>