<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' UsedBySBOMDetail.asp '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim parPv_id Dim parBranchId Dim parMode '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = Request ("pv_id") parBranchId = Request ("branch_id") parMode = Request ("mode") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %> <% OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", parBranchId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedBySBOMDetail.sql"), cint(0)) OraDatabase.Parameters.Remove "MATCH" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "BRANCH" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>

Bom Name	Bom Version	Node Name	OS Name	Version Used		Last Modified
&branch_id=<%=parBranchId%>" class="txt_linked"> <%=rsTemp("bom_name")%>	" class="txt_linked"> <%=rsTemp("version")%>	&node_id=<%=rsTemp("NODE_ID")%>" class="txt_linked"> <%=rsTemp("node_name")%>	&os_id=<%=rsTemp("OS_ID")%>" class="txt_linked"> <%=rsTemp("os_name")%>	" class="txt_linked <%=iif(rsTemp("MATCH") <> 1,"err_alert","")%>"> <%=rsTemp("pkg_name")%> <%=rsTemp("pkg_version")%>		<%=emailField(enum_imgUser & rsTemp("full_name"),rsTemp("user_email"))%>  <%=DisplayDate ( rsTemp("modified_stamp") )%>

<% Call Destroy_All_Objects %>