<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' RequestUsedByThisSnapshot.asp ' ' '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim parPvId Dim parMode Dim divId, rtag_id, rtag_name, rtag_count '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPvId = Request("pv_id") parMode = Request ("mode") '---------------------------------------------- %> <% OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisSnapshot.sql"), cint(0)) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "MATCH" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) rtag_id = rsTemp("rtag_id") rtag_name = rsTemp("rtag_name") rtag_count = rsTemp("used_count") divId = "RTAGP_ID_" & parMode & "_" & rtag_id %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>
Parent Release
None Found
src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"> <%= rtag_name &" ("& rtag_count &")"%>
<% Call Destroy_All_Objects %>