Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 65... Line 65...
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") = ""
69 
      Session("ERRlogFULL") = ""
 69 
      Session("ERRlogFULL") = ""
- 
 
 70 
      Call Destroy_All_Objects
70 
      Response.Redirect("message.asp?msg=401-5")
 71 
      Response.Redirect("message.asp?msg=401-5")
71 
   End If
 72 
   End If
72 
 
 73 
 
73 
   Call Remove_View ( parView_id )
 74 
   Call Remove_View ( parView_id )
74 
 
 - 
 
- 
 
 75 
   Call Destroy_All_Objects
75 
   Response.Redirect("members_personal_view.asp")
 76 
   Response.Redirect("members_personal_view.asp")
76 
Else
 77 
Else
77 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 78 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
78 
   Response.write QSTR_FullQuery
 79 
   Response.write QSTR_FullQuery
79 
End If
 80 
End If
80 
%>
 81 
%>
81 
 
 - 
 
82 
<!-- DESTRUCTOR ------->
 82 
<!-- DESTRUCTOR ------->
83 
<!--#include file="common/destructor.asp"-->
 83 
<!--#include file="common/destructor.asp"-->