<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddVCS | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim sMessage Dim VCS_NAME Dim VCS_TAG Dim Query_String Dim dual Dim Query_Stringx Dim vcs_type_id '------------ CONSTANTS DECLARATION ----------- Const LIMG_PRODUCT = "" Const LIMG_PRODUCT_UNPACKAGED = "" Const LIMG_PRODUCT_PATCH = "" '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Request("VCS_TAG") = "" Then Call RaiseMsg ( enum_MSG_ERROR, "Cannot add an empty string as a VCS Tag" ) Else If Request("VCS_NAME") = "" Then Call RaiseMsg ( enum_MSG_ERROR, "Cannot add an empty string as a VCS Name" ) Else Query_String = " SELECT * FROM vcs_type WHERE tag = '"& Request("VCS_TAG") &"'" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then Query_Stringx = _ " SELECT seq_vcs_type.NEXTVAL FROM DUAL" Set dual = OraDatabase.DbCreateDynaset(Query_Stringx,cint(0)) vcs_type_id = dual("NEXTVAL") dual.Close() Set dual = Nothing OraDatabase.Parameters.Add "VCS_TYPE_ID", vcs_type_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NAME", Request("VCS_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "TAG", Request("VCS_TAG"), ORAPARM_INPUT, ORATYPE_VARCHAR2 On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL ("begin INSERT INTO vcs_type (vcs_type_id, name, tag) VALUES (:VCS_TYPE_ID, :NAME, :TAG); end;") objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "VCS_TYPE_ID" OraDatabase.Parameters.Remove "NAME" OraDatabase.Parameters.Remove "TAG" If objEH.Finally Then Call OpenInParentWindow ("admin_vcs_types.asp") Call CloseWindow() End If Else Call RaiseMsg ( enum_MSG_VCS_EXISTS, Request("VCS_TAG") ) End If rsQry.Close Set rsQry = nothing End If End If End If '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add Version Control System (VCS) Add a new VCS.

<%=ProgressBar()%>

<%Call Messenger ( sMessage , 3, "100%" )%> VCS Name VCS Tag (1..4 chars)

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>