<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Issue Notes '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parIss_db Dim parIss_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parIss_db = QStrPar("iss_db") parIss_id = QStrPar("iss_id") '---------------------------------------------- %> <% Function Get_Notes( NNPv_id, NNiss_db, NNiss_id ) Dim rsTemp, Query_String Query_String = _ " SELECT notes"&_ " FROM cq_issues"&_ " WHERE pv_id = "& NNPv_id &" AND iss_db="& NNiss_db &" AND iss_id="& NNiss_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then Get_Notes = rsTemp.Fields("notes") End If rsTemp.Close Set rsTemp = nothing End Function Sub Update_Issue_Notes ( NNPv_id, NNiss_db, NNiss_id, SSparNotes ) Dim rsTemp, Query_String Query_String = _ " SELECT notes"&_ " FROM cq_issues"&_ " WHERE pv_id = "& NNPv_id &" AND iss_db="& NNiss_db &" AND iss_id="& NNiss_id Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0)) 'update fields rsTemp.Edit rsTemp.Fields("notes").Value = SSparNotes rsTemp.Update rsTemp.Close Set rsTemp = nothing End Sub %> <% 'Process submition If CBool(QStrPar("action")) Then Call Update_Issue_Notes ( parPv_id, parIss_db, parIss_id, QStrPar("FRnotes") ) Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" ) Call CloseWindow Else '------------ Action Requirements ------------------- If NOT objAccessControl.UserLogedIn Then ' NOT AUTHENTICATED Call OpenInParentWindow("login.asp?rfile=fixed_issues.asp"& QSTR_All) Call CloseWindow End If End If %>

	Issue Notes
	<%=Get_Notes( parPv_id, parIss_db, parIss_id )%>