<%@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 ------------------- '---------------------------------------------- %> <%=Title(Request("rtag_id"))%>
<%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 %> <%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 )%> <%=EuroDate ( dDoc_created )%> &doc_num=<%=Server.URLEncode( rsTemp("doc_num") )%>&action=true&edit=true','ImportDocs','resizable=yes,width=600,height=220')" > &doc_id=<%=rsTemp("doc_id")%>" onClick="return confirmDelete('this Document entry');">
<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
 
<% Call Destroy_All_Objects %>