<%@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("UserWip.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%> Location   <%=rsTemp("location") &" / "%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %>

<% Call Destroy_All_Objects %>