<%@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_licences.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim sMessage Dim parLic_id Dim LicenceName '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parLic_id = Request("lic_id") sMessage = NULL '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub Get_Licence_Config ( NNLic_id, out_name ) Dim rsTemp, Query_String Query_String = _ " SELECT licence, name "&_ " FROM licences l "&_ " WHERE l.licence = "& NNLic_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) out_name = rsTemp("name") rsTemp.Close() Set rsTemp = nothing End Sub '----------------------------------------------------------------------------------------------------------------------------------- Sub Update_Licence_Config ( NNLic_id, sLicenceName) OraDatabase.Parameters.Add "LIC_ID", NNLic_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "LIC_TEXT", sLicenceName, ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL "UPDATE licences set NAME = :LIC_TEXT WHERE LICENCE = :LIC_ID" objEH.CatchORA ( OraSession ) If objEH.Finally Then Call OpenInParentWindow ("admin_licences.asp" ) Call CloseWindow End If OraDatabase.Parameters.Remove "LIC_ID" OraDatabase.Parameters.Remove "LIC_TEXT" End Sub '----------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ Action Requirements ------------------- 'Process submition If CBool(Request("action")) AND objAccessControl.UserLogedIn AND parLic_id <> "" Then Call Update_Licence_Config ( parLic_id, Request("licName") ) End If Call Get_Licence_Config ( parLic_id, LicenceName ) %>

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