<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' RequestUsedByThisProjectSummary.asp ' Show the body of the used by packages summary display ' This is invoked via AJAX '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store ' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK) Response.ContentType = "text/html" Response.AddHeader "Content-Type", "text/html;charset=UTF-8" Response.CodePage = 65001 Response.CharSet = "UTF-8" %> <% '------------ Variable Definition ------------- Dim rsTemp Dim pkgId Dim parPvId Dim projId, projName, projCount Dim parMode Dim divId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPvId = Request("pv_id") parMode = Request("mode") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %> <% OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) ) OraDatabase.Parameters.Remove "MATCH" OraDatabase.Parameters.Remove "PV_ID" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) projId = rsTemp("proj_id") projName = rsTemp("proj_name") projCount = rsTemp("used_count") divId = "PROJID_" & parMode & "_" & projId %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>
Project
  None Found
src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"> <%= projName &" ("& projCount &")"%>
<% Call Destroy_All_Objects %>