<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Documentation | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp Dim rsQry Dim retVal '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %>

<%Call RenderActionBar(parRtag_id,parPv_id)%> <%Call RenderStatus(parRtag_id,parPv_id)%>     <%Call Generate_Tab_Menu ( TABarray1, "Documentation", "orange" )%>   <%Call Action_Buttons ( "Documentation" )%> Documentation <% Dim sDocTitle, sDoc_version, dDoc_created, sLink OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0)) %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%Do While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <% If IsNull(rsTemp("is_latest")) Then retVal = Short_Document_Details ( rsTemp("doc_id"), sDocTitle, sDoc_version, dDoc_created ) sLink = DocRepositiryLinkOld & rsTemp("doc_id") Else retVal = Lookup_Document ( rsTemp("doc_num"), sDocTitle, NULL, NULL, dDoc_created ) sLink = DocRepositiryLink & rsTemp("doc_num") sDoc_version = "Latest" End If If retVal <> 0 Then Exit Do %> <%BuildActionButtonClick TRUE, "", "Edit", FALSE, _ "src='images/i_edit.gif' width='13' height='12' hspace='3' border='0'",_ "MM_openVixIFrame('_wform_import_docs.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&version_id=" & rsTemp("doc_id") & "&doc_num=" & Server.URLEncode( rsTemp("doc_num") ) & "&action=true&edit=true','Import Documents')"%> <%BuildActionButtonClick TRUE, "", "Remove from list", FALSE, _ "src='images/i_delete.gif' width='13' height='12' hspace='3' border='0'",_ "vixConfirm('Are you sure you want to delete this Document?', {url : '"& "_remove_doc.asp?rtag_id=" & parRtag_id & "&pv_id=" & rsTemp("pv_id") & "&doc_id=" & rsTemp("doc_id") &"'})" %> <%rsTemp.MoveNext Loop rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "PV_ID" %>  Download  Title   Document Number   Version   Created                 <%=sDocTitle%>   <%=rsTemp("doc_num")%> <%=FormatVersion( sDoc_version )%> <%=DisplayDateTime ( dDoc_created )%> <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>