Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 1337
Line 58... Line 58...
58 
<%
 58 
<%
59 
'-----------------------  MAIN LINE  ---------------------------
 59 
'-----------------------  MAIN LINE  ---------------------------
60 
 
 60 
 
61 
'--- Process submition ---
 61 
'--- Process submition ---
62 
If (parView_id <> "") Then
 62 
If (parView_id <> "") Then
63 
   ' All mendatory parameters FOUND
 63 
   ' All mandatory parameters FOUND
64 
 
 64 
 
65 
   ' report errors if found
 65 
   ' report errors if found
66 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
 66 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
67 
      Session("reqParam") = ""
 67 
      Session("reqParam") = ""
68 
      Session("ERRlog") = ""
 68 
      Session("ERRlog") = ""
Line 72... Line 72...
72 
 
 72 
 
73 
   Call Remove_View ( parView_id )
 73 
   Call Remove_View ( parView_id )
74 
 
 74 
 
75 
   Response.Redirect("members_personal_view.asp")
 75 
   Response.Redirect("members_personal_view.asp")
76 
Else
 76 
Else
77 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 77 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
78 
   Response.write QSTR_All
 78 
   Response.write QSTR_All
79 
End If
 79 
End If
80 
%>
 80 
%>
81 
 
 81 
 
82 
<!-- DESTRUCTOR ------->
 82 
<!-- DESTRUCTOR ------->