<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' RequestUserWip.asp '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim PageInfoHash '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set PageInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %> <% OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserDangle.sql"), cint(0)) OraDatabase.Parameters.Remove "USER_ID" If rsTemp.RecordCount < 1 Then %> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>
Package Version Last Modified Reason for this version
None
&pv_id=<%=rsTemp("pv_id")%>','History','resizable=yes,scrollbars=yes,width=1000,height='+ ( screen.height - 100 ))" class="pointer txt_linked"><%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %> <%= DisplayDate(rsTemp("MODIFIED_STAMP"))%> <%= rsTemp("comments")%>

<%Call Destroy_All_Objects%>