Subversion Repositories DevTools

Rev

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

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