<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Update a Licence Text '===================================================== %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "admin_baseviews.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim sMessage Dim parViewId Dim ViewName '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parViewId = Request("view_id") sMessage = NULL '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub Get_BaseName_Config ( NNview_id, out_name ) Dim rsTemp, Query_String Query_String = _ " select view_id, view_name from views where view_id=" & NNview_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) out_name = rsTemp("view_name") rsTemp.Close() Set rsTemp = nothing End Sub '----------------------------------------------------------------------------------------------------------------------------------- Sub Update_BaseName_Config ( NNview_id, sName) OraDatabase.Parameters.Add "VIEW_ID", NNview_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "VIEW_NAME", sName, ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL "UPDATE views set view_name = :VIEW_NAME WHERE VIEW_ID = :VIEW_ID" objEH.CatchORA ( OraSession ) If objEH.Finally Then Call OpenInParentWindow ("admin_baseviews.asp" ) Call CloseWindow End If OraDatabase.Parameters.Remove "VIEW_ID" OraDatabase.Parameters.Remove "VIEW_NAME" End Sub '----------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ Action Requirements ------------------- 'Process submition If CBool(Request("action")) AND objAccessControl.UserLogedIn AND parViewId <> "" AND Request("ViewName") <> "" Then Call Update_BaseName_Config ( parViewId, Request("ViewName") ) End If Call Get_BaseName_Config ( parViewId, ViewName ) %>

<%Call Messenger ( sMessage , 3, "100%" )%> Base Name