<%@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 ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Request("VCS_TAG") = "" Then sMessage = "Cannot add an empty string as a VCS Tag" Else If Request("VCS_NAME") = "" Then sMessage = "Cannot add an empty string as a VCS Name" Else Query_String = "SELECT * FROM vcs_type WHERE UPPER(tag) = UPPER('"& 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 objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next 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 sMessage = "VCS Tag already exists" End If rsQry.Close Set rsQry = nothing End If End If End If '---------------------------------------------- %>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add a New Version control System.

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

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