Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| MEMBERS |'| INDEX |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/config.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/common_subs.asp"--><%'Refresh parent window after the child window is closed'If QStrPar("refresh") = "true" Then' Response.Redirect( scriptName &"?done=done"& QSTR) ' Note: "done" parameter is required as QSTR cannot stant on its own.'End If%><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsTemp'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------%><%Function Get_Personal_Views ( NNuser_id )Get_Personal_Views = ReadFile( rootPath & "queries\personal_views_list.qry" )Get_Personal_Views = Replace( Get_Personal_Views, "$USER_ID$", NNuser_id)End FunctionSub Remove_View_Settings ( NNuser_id )OraSession.BeginTransOraDatabase.ExecuteSQL " DELETE FROM view_settings vis WHERE vis.user_id = "& NNuser_id &" AND vis.view_id IN (SELECT vi.view_id FROM views vi WHERE vi.owner_id = "& NNuser_id &")"OraSession.CommitTransEnd SubSub Insert_View_Settings ( NNuser_id, SSpersonalshow )If SSpersonalshow <> "" ThenOraSession.BeginTransOraDatabase.ExecuteSQL " INSERT INTO view_settings"&_" SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpersonalshow &")"OraSession.CommitTransEnd IfEnd Sub%><%'--- Process submition ---'If (QStrPar("action") <> "") Then' All mendatory parameters FOUND' Call Remove_View_Settings ( objAccessControl.UserId )' Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpersonalshow") )'End If%><html><head><title>Deployment Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><!-- HEADER --><%If objAccessControl.UserLogedIn Then%><div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="#"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a></div><%End If%><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_lite_blue.gif"><img src="images/p_header.gif" width="552" height="45"></td><td width="100%" background="images/bg_lite_blue.gif"> </td><td width="1%" rowspan="2" valign="bottom" background="images/bg_lite_blue.gif"><a href="Default.asp"><img src="images/dm_logo.gif" alt="Home" title="Home" width="241" height="69" border="0"></a></td></tr><tr><td background="images/p_header_bottom.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><%If objAccessControl.UserLogedIn Then%><tr><div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="_Logout.asp"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a></div><!--<td width="1%"><a href="CommingSoon.asp"><img src="icons/ni_new_product.gif" title="New product has arrived." width="18" height="18" hspace="2" border="0"></a></td><td width="1"><a href="CommingSoon.asp"><img src="icons/ni_notifier.gif" title="Email notification." width="18" height="18" hspace="2" border="0"></a></td>--><td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td><td width="100%" bgcolor="#FFFFFF"> </td></tr><%Else%><tr><td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td><td width="100%" bgcolor="#FFFFFF"> </td></tr><%End If%></table></td><td align="right" bgcolor="#FFFFFF"><%=ProgressBar()%></td></tr></table><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_member_dark.gif" valign="top"><!-- MEMBERS MENU ----------------------------------------------><!--#include file="members_menu_def.asp"--><%Call Member_Menu( "" )%><!-- MEMBERS MENU END ------------------------------------------></td><td width="1%" valign="top" background="images/bg_member_light.gif"><a href="default.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td><td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap><!-------------------------------------------><br><!--------------------------------------------------------></td><td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_view.gif" width="249" height="144" vspace="10" hspace="10"></td></tr><tr><td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td><td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>