Subversion Repositories DevTools

Rev

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

Rev 129 Rev 1376
Line 74... Line 74...
74 
<%
 74 
<%
75 
'-----------------------  MAIN LINE  ---------------------------
 75 
'-----------------------  MAIN LINE  ---------------------------
76 
 
 76 
 
77 
'--- Process submition ---
 77 
'--- Process submition ---
78 
If (parViewName <> "") Then
 78 
If (parViewName <> "") Then
79 
   ' All mendatory parameters FOUND
 79 
   ' All mandatory parameters FOUND
80 
 
 80 
 
81 
   ' report errors if found
 81 
   ' report errors if found
82 
   If View_Name_Exists( parViewName, objAccessControl.UserId ) Then
 82 
   If View_Name_Exists( parViewName, objAccessControl.UserId ) Then
83 
      Session("reqParam") = ""
 83 
      Session("reqParam") = ""
84 
      Session("ERRlog") = ""
 84 
      Session("ERRlog") = ""
Line 90... Line 90...
90 
   'COMPLETE THE REQUEST...
 90 
   'COMPLETE THE REQUEST...
91 
   Call Create_New_View ( parViewName, parPkgInc, parPubread )
 91 
   Call Create_New_View ( parViewName, parPkgInc, parPubread )
92 
 
 92 
 
93 
   Response.Redirect("members_personal_view.asp")
 93 
   Response.Redirect("members_personal_view.asp")
94 
Else
 94 
Else
95 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 95 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
96 
   Response.write QSTR_All
 96 
   Response.write QSTR_All
97 
End If
 97 
End If
98 
%>
 98 
%>
99 
 
 99 
 
100 
<!-- DESTRUCTOR ------->
 100 
<!-- DESTRUCTOR ------->