Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 1337
Line 63... Line 63...
63 
<%
 63 
<%
64 
'-----------------------  MAIN LINE  ---------------------------
 64 
'-----------------------  MAIN LINE  ---------------------------
65 
 
 65 
 
66 
'--- Process submition ---
 66 
'--- Process submition ---
67 
If (parProj <> "") Then
 67 
If (parProj <> "") Then
68 
   ' All mendatory parameters FOUND
 68 
   ' All mandatory parameters FOUND
69 
 
 69 
 
70 
   ' report errors if found
 70 
   ' report errors if found
71 
   If Project_Name_Exists( parProj ) Then
 71 
   If Project_Name_Exists( parProj ) Then
72 
      Session("reqParam") = ""
 72 
      Session("reqParam") = ""
73 
      Session("ERRlog") = ""
 73 
      Session("ERRlog") = ""
Line 79... Line 79...
79 
   'COMPLETE THE REQUEST...
 79 
   'COMPLETE THE REQUEST...
80 
   Call Create_New_Project ( parProj )
 80 
   Call Create_New_Project ( parProj )
81 
 
 81 
 
82 
   Response.Redirect("index.asp")
 82 
   Response.Redirect("index.asp")
83 
Else
 83 
Else
84 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 84 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
85 
   Response.write QSTR_All
 85 
   Response.write QSTR_All
86 
End If
 86 
End If
87 
%>
 87 
%>
88 
 
 88 
 
89 
<!-- DESTRUCTOR ------->
 89 
<!-- DESTRUCTOR ------->