<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Additional Note '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parNote_id Dim rsQry '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parNote_id = Request("note_id") parPv_id = Request("pv_id") '---------------------------------------------- %> <% Sub Get_Additional_Note ( nNote_id, nPv_id, OOrs ) Dim Query_String Query_String = _ " SELECT an.note_title, an.note_body"&_ " FROM ADDITIONAL_NOTES an"&_ " WHERE an.note_id = "& nNote_id &_ " AND an.PV_ID = "& nPv_id Set OOrs = OraDatabase.CreateDynaset( Query_String, cint(0)) End Sub Sub Update_Additional_Note ( nNote_id, nPv_id, sNote_Title, sNote_Body, nUser_Id ) Dim retErrCode OraDatabase.Parameters.Add "NOTE_ID", nNote_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NOTE_TITLE", sNote_Title, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "NOTE_BODY", sNote_Body, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", nUser_Id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ERRCODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN Update_Additional_Note ( :NOTE_ID,"&_ " :PV_ID,"&_ " :NOTE_TITLE,"&_ " :NOTE_BODY,"&_ " :USER_ID,"&_ " :ERRCODE ); END;" objEH.CatchORA ( OraSession ) retErrCode = OraDatabase.Parameters("ERRCODE").Value OraDatabase.Parameters.Remove "NOTE_ID" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "NOTE_TITLE" OraDatabase.Parameters.Remove "NOTE_BODY" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "ERRCODE" If retErrCode <> 0 Then Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title ) End If End Sub %> <% 'Process submition If CBool(Request("action")) AND objAccessControl.UserLogedIn Then Call Update_Additional_Note ( parNote_id, parPv_id, Request("note_title"), Request("note_body"), objAccessControl.UserId ) Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id & "#ADDITIONAL_NOTES") Call CloseWindow End If Call Get_Additional_Note ( parNote_id, parPv_id, rsQry ) %>

Note Title " size="80" maxlength="50"> Note Body <%=rsQry("note_body")%>