Subversion Repositories DevTools

Rev

Rev 3959 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3959 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	MEMBERS					     |
 5 
'|				    	MEMBERS					     |
6 
'|      NOTIFICATIONS - Packages Followed            |
 6 
'|      NOTIFICATIONS - Packages Followed            |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0	' always load the page, dont store
13 
%>
 13 
%>
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_form_window_common.asp"-->
 19 
<!--#include file="common/_form_window_common.asp"-->
20 
<%
 20 
<%
21 
'------------ ACCESS CONTROL ------------------
 21 
'------------ ACCESS CONTROL ------------------
22 
%>
 22 
%>
23 
<!--#include file="_access_control_login.asp"-->
 23 
<!--#include file="_access_control_login.asp"-->
24 
<!--#include file="_access_control_general.asp"-->
 24 
<!--#include file="_access_control_general.asp"-->
25 
<%
 25 
<%
26 
'------------ Variable Definition -------------
 26 
'------------ Variable Definition -------------
27 
Dim rsTemp
 27 
Dim rsTemp
28 
Dim parProjId
 28 
Dim parProjId
29 
'------------ Constants Declaration -----------
 29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
 30 
'------------ Variable Init -------------------
31 
parProjId = Request("proj_id")
 31 
parProjId = Request("proj_id")
32 
objPMod.PersistInQryString("proj_id")
 32 
objPMod.PersistInQryString("proj_id")
33 
If parProjId = "" then parProjId = 0
 33 
If parProjId = "" then parProjId = 0
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
 
 35 
 
36 
Function Get_My_Interest_Packages ( NNuser_id )
 36 
Function Get_My_Interest_Packages ( NNuser_id )
37 
	Get_My_Interest_Packages = _
 37 
	Get_My_Interest_Packages = _
38 
	" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PROJECTS PRJ WHERE USER_ID = "& NNuser_id &""&_
 38 
	" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PROJECTS PRJ WHERE USER_ID = "& NNuser_id &""&_
39 
	" AND PI.PKG_ID = PKG.PKG_ID AND PI.PROJ_ID = PRJ.PROJ_ID order by PRJ.PROJ_ID, pkg.pkg_name"
 39 
	" AND PI.PKG_ID = PKG.PKG_ID AND PI.PROJ_ID = PRJ.PROJ_ID order by PRJ.PROJ_ID, pkg.pkg_name"
40 
End Function
 40 
End Function
41 
 
 41 
 
42 
'--------------------------------------------------------------------------------------------------------------------------
 42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub DeletePackageInterestOwner (projId, pkgId)
 43 
Sub DeletePackageInterestOwner (projId, pkgId)
44 
 
 44 
 
45 
	On Error Resume Next
 45 
	On Error Resume Next
46 
 
 46 
 
47 
	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
 47 
	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
48 
	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 48 
	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
49 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 49 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
50 
 
 50 
 
51 
	objEH.TryORA ( OraSession )
 51 
	objEH.TryORA ( OraSession )
52 
 
 52 
 
53 
	OraDatabase.ExecuteSQL _
 53 
	OraDatabase.ExecuteSQL _
54 
	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
 54 
	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
55 
 
 55 
 
56 
	objEH.CatchORA ( OraSession )
 56 
	objEH.CatchORA ( OraSession )
57 
 
 57 
 
58 
	OraDatabase.Parameters.Remove "PROJ_ID"
 58 
	OraDatabase.Parameters.Remove "PROJ_ID"
59 
	OraDatabase.Parameters.Remove "PKG_ID"
 59 
	OraDatabase.Parameters.Remove "PKG_ID"
60 
	OraDatabase.Parameters.Remove "USER_ID"
 60 
	OraDatabase.Parameters.Remove "USER_ID"
61 
 
 61 
 
62 
End Sub
 62 
End Sub
63 
'--------------------------------------------------------------------------------------------------------------
 63 
'--------------------------------------------------------------------------------------------------------------
64 
If Request("btn") = "Remove" Then
 64 
If Request("btn") = "Remove" Then
65 
	If objForm.IsValidOnPostBack Then
 65 
	If objForm.IsValidOnPostBack Then
66 
		Dim txt,posComma, posUnderscore, projId, pkgId, value
 66 
		Dim txt,posComma, posUnderscore, projId, pkgId, value
67 
 
 67 
 
68 
		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
 68 
		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
69 
		posComma = InStr(txt, ",")
 69 
		posComma = InStr(txt, ",")
70 
 
 70 
 
71 
		While posComma <> 0
 71 
		While posComma <> 0
72 
			'Response.Write(txt)
 72 
			'Response.Write(txt)
73 
			value = Mid(txt, 1, posComma-1)
 73 
			value = Mid(txt, 1, posComma-1)
74 
			posUnderscore = Instr(value, "_")
 74 
			posUnderscore = Instr(value, "_")
75 
			projId = Mid(value, 1, posUnderscore - 1)
 75 
			projId = Mid(value, 1, posUnderscore - 1)
76 
			pkgId = Mid(value, posUnderscore + 1, posComma-1)
 76 
			pkgId = Mid(value, posUnderscore + 1, posComma-1)
77 
 
 77 
 
78 
			Call DeletePackageInterestOwner(projId, pkgId)
 78 
			Call DeletePackageInterestOwner(projId, pkgId)
79 
 
 79 
 
80 
			txt = Mid(txt, posComma + 1, Len(txt))
 80 
			txt = Mid(txt, posComma + 1, Len(txt))
81 
			posComma = InStr(txt, ",")
 81 
			posComma = InStr(txt, ",")
82 
		Wend
 82 
		Wend
83 
 
 83 
 
84 
		If posComma = 0 Then
 84 
		If posComma = 0 Then
85 
			posUnderscore = Instr(txt, "_")
 85 
			posUnderscore = Instr(txt, "_")
86 
			projId = Mid(txt, 1, posUnderscore - 1)
 86 
			projId = Mid(txt, 1, posUnderscore - 1)
87 
			pkgId = Mid(txt, posUnderscore + 1)
 87 
			pkgId = Mid(txt, posUnderscore + 1)
88 
 
 88 
 
89 
			Call DeletePackageInterestOwner(projId, pkgId)
 89 
			Call DeletePackageInterestOwner(projId, pkgId)
90 
 
 90 
 
91 
		Else
 91 
		Else
92 
		End if
 92 
		End if
93 
		' --- Form is Valid ---
 93 
		' --- Form is Valid ---
94 
		'Call DeleteViewOwner()
 94 
		'Call DeleteViewOwner()
95 
		If objEH.Finally Then
 95 
		If objEH.Finally Then
96 
			Call OpenInWindow ( "members_pkgs_followed.asp" )
 96 
			Call OpenInWindow ( "members_pkgs_followed.asp" )
97 
		End If
 97 
		End If
98 
	End If
 98 
	End If
99 
End If
 99 
End If
100 
%>
 100 
%>
101 
<html>
 101 
<html>
102 
<head>
 102 
<head>
103 
<title>Release Manager</title>
 103 
<title>Release Manager</title>
104 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 104 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
105 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 105 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
106 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 106 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
107 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 107 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
108 
<script language="JavaScript" src="images/common.js"></script>
 108 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
109 
<script language="javascript">
 109 
<script language="JavaScript" src="images/common.js"></script>
110 
<!--
 110 
<script language="javascript">
111 
function checkUncheckAll(theElement) {
 111 
<!--
112 
     var theForm = theElement.form, z = 0;
 112 
function checkUncheckAll(theElement) {
113 
	 for(z=0; z<theForm.length;z++){
 113 
     var theForm = theElement.form, z = 0;
114 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
 114 
	 for(z=0; z<theForm.length;z++){
115 
	  theForm[z].checked = theElement.checked;
 115 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
116 
	  }
 116 
	  theForm[z].checked = theElement.checked;
117 
     }
 117 
	  }
118 
    }
 118 
     }
119 
//-->
 119 
    }
120 
</script>
 120 
//-->
121 
</head>
 121 
</script>
122 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 122 
</head>
123 
<!-- TIPS LAYERS -------------------------------------->
 123 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
124 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 124 
<!-- TIPS LAYERS -------------------------------------->
125 
<!----------------------------------------------------->
 125 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
126 
<!-- HEADER -->
 126 
<!----------------------------------------------------->
127 
<!--#include file="_header.asp"-->
 127 
<!-- HEADER -->
128 
<!-- BODY ---->
 128 
<!--#include file="_header.asp"-->
129 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 129 
<!-- BODY ---->
130 
  <tr>
 130 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
131 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
 131 
  <tr>
132 
      <!-- MEMBERS MENU ---------------------------------------------->
 132 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
133 
	  <!--#include file="members_menu_def.asp"-->
 133 
      <!-- MEMBERS MENU ---------------------------------------------->
134 
	  <%Call Member_Menu( "notifications" )%>
 134 
	  <!--#include file="members_menu_def.asp"-->
135 
      <!--  MEMBERS MENU END ------------------------------------------>
 135 
	  <%Call Member_Menu( "notifications" )%>
136 
    </td>
 136 
      <!--  MEMBERS MENU END ------------------------------------------>
137 
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
 137 
    </td>
138 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
 138 
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
139 
      <!------------------------------------------->
 139 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
140 
      <br>
 140 
      <!------------------------------------------->
141 
      <span class="mmb_ttl">Notifications</span><br>
 141 
      <br>
142 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 142 
      <span class="mmb_ttl">Notifications</span><br>
143 
        <%
 143 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
144 
        '-- FROM START ---------------------------------------------------------
 144 
        <%
145 
        objFormComponent.FormName = "FormName"
 145 
        '-- FROM START ---------------------------------------------------------
146 
        objFormComponent.Action = ScriptName
 146 
        objFormComponent.FormName = "FormName"
147 
        Call objFormComponent.FormStart()
 147 
        objFormComponent.Action = ScriptName
148 
        %>
 148 
        Call objFormComponent.FormStart()
149 
        <tr>
 149 
        %>
150 
          <td width="1%">&nbsp;</td>
 150 
        <tr>
151 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
 151 
          <td width="1%">&nbsp;</td>
152 
          <td width="1%">&nbsp;</td>
 152 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
153 
        </tr>
 153 
          <td width="1%">&nbsp;</td>
154 
        <tr>
 154 
        </tr>
155 
          <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 155 
        <tr>
156 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
 156 
          <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
157 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
 157 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
158 
        </tr>
 158 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
159 
 
 159 
        </tr>
160 
        <tr>
 160 
 
161 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 161 
        <tr>
162 
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
 162 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
163 
 
 163 
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
164 
			<a name="PACKAGE_INTEREST"></a>
 164 
 
165 
              <p>You are currently interested in the following packages. <br>
 165 
			<a name="PACKAGE_INTEREST"></a>
166 
  NOTE: You will be notified when the package is officially released/autobuild.</p>
 166 
              <p>You are currently interested in the following packages. <br>
167 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 167 
  NOTE: You will be notified when the package is officially released/autobuild.</p>
168 
		  <tr>
 168 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
169 
			<td nowrap class="form_iname" valign="top">Select Project </td>
 169 
		  <tr>
170 
			<td valign="top" nowrap class="form_iname">
 170 
			<td nowrap class="form_iname" valign="top">Select Project </td>
171 
			<%
 171 
			<td valign="top" nowrap class="form_iname">
172 
 
 172 
			<%
173 
			  Dim Query_String, rsQry
 173 
 
174 
			  	Query_String = _
 174 
			  Dim Query_String, rsQry
175 
				" SELECT * FROM PROJECTS order by proj_name"
 175 
			  	Query_String = _
176 
 
 176 
				" SELECT * FROM PROJECTS order by proj_name"
177 
 
 177 
 
178 
			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 178 
 
179 
 
 179 
			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
180 
			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
 180 
 
181 
			Response.write "<option value='0' selected>--NONE--</option>"
 181 
			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
182 
			  %>
 182 
			Response.write "<option value='0' selected>--NONE--</option>"
183 
 
 183 
			  %>
184 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 184 
 
185 
 
 185 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
186 
			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
 186 
 
187 
	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 187 
			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
188 
	        Else
 188 
	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
189 
 
 189 
	        Else
190 
				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 190 
 
191 
			End If
 191 
				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
192 
					rsQry.MoveNext
 192 
			End If
193 
				WEnd
 193 
					rsQry.MoveNext
194 
 
 194 
				WEnd
195 
				rsQry.Close()
 195 
 
196 
				Set rsQry = nothing
 196 
				rsQry.Close()
197 
				%>
 197 
				Set rsQry = nothing
198 
			  </select>
 198 
				%>
199 
			  </tr>
 199 
			  </select>
200 
			  <%If parProjId > 0  Then %>
 200 
			  </tr>
201 
			  <tr>
 201 
			  <%If parProjId > 0  Then %>
202 
				<td nowrap class="form_iname" valign="top">Add Interest</td>
 202 
			  <tr>
203 
				<td valign="top" nowrap class="form_iname">
 203 
				<td nowrap class="form_iname" valign="top">Add Interest</td>
204 
 
 204 
				<td valign="top" nowrap class="form_iname">
205 
			<a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddPackageInterest.asp?proj_id=<%=parProjId%>','AddPackageInterest','scrollbars=yes,resizable=yes,width=350,height=800')"><img src="images/email-contact-orange.gif"></a>
 205 
 
206 
			<%End If%>
 206 
			<a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddPackageInterest.asp?proj_id=<%=parProjId%>','AddPackageInterest','scrollbars=yes,resizable=yes,width=350,height=800')"><img src="images/email-contact-orange.gif"></a>
207 
			  </tr>
 207 
			<%End If%>
208 
                <tr>
 208 
			  </tr>
209 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
 209 
                <tr>
210 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
 210 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
211 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 211 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
212 
                </tr>
 212 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
213 
                <%
 213 
                </tr>
214 
				Dim currProj_id
 214 
                <%
215 
				currProj_id = -1
 215 
				Dim currProj_id
216 
 
 216 
				currProj_id = -1
217 
 
 217 
 
218 
				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
 218 
 
219 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 219 
				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
220 
				%>
 220 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
221 
                <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
 221 
				%>
222 
                <tr>
 222 
                <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
223 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 223 
                <tr>
224 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
 224 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
225 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 225 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
226 
                </tr>
 226 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
227 
                <%currProj_id = rsTemp("proj_id")%>
 227 
                </tr>
228 
 
 228 
                <%currProj_id = rsTemp("proj_id")%>
229 
 
 229 
 
230 
                <%End If%>
 230 
 
231 
				<tr>
 231 
                <%End If%>
232 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pkg_id_list" value="<%=rsTemp("proj_id")%>_<%=rsTemp("pkg_id")%>"></td>
 232 
				<tr>
233 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 233 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pkg_id_list" value="<%=rsTemp("proj_id")%>_<%=rsTemp("pkg_id")%>"></td>
234 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_name")%></td>
 234 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
235 
                </tr>
 235 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_name")%></td>
236 
                <%rsTemp.MoveNext
 236 
                </tr>
237 
	    	    WEnd%>
 237 
                <%rsTemp.MoveNext
238 
                <%If rsTemp.RecordCount = 0 Then%>
 238 
	    	    WEnd%>
239 
                <tr>
 239 
                <%If rsTemp.RecordCount = 0 Then%>
240 
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You are not interested in any packages.</td>
 240 
                <tr>
241 
                </tr>
 241 
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You are not interested in any packages.</td>
242 
                <%End If%>
 242 
                </tr>
243 
              </table>
 243 
                <%End If%>
244 
              <br>
 244 
              </table>
245 
              <%If rsTemp.RecordCount <> 0 Then%>
 245 
              <br>
246 
              <input name="btn" type="submit" class="form_btn" value="Remove">
 246 
              <%If rsTemp.RecordCount <> 0 Then%>
247 
              <%End If
 247 
              <input name="btn" type="submit" class="form_btn" value="Remove">
248 
			  rsTemp.Close()
 248 
              <%End If
249 
			  set rsTemp = nothing
 249 
			  rsTemp.Close()
250 
			  %>
 250 
			  set rsTemp = nothing
251 
			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
 251 
			  %>
252 
			<input type="hidden" name="action" value="true">
 252 
			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
253 
			</td>
 253 
			<input type="hidden" name="action" value="true">
254 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 254 
			</td>
255 
        </tr>
 255 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
256 
        <tr>
 256 
        </tr>
257 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 257 
        <tr>
258 
          <td background="images/bg_member_dark.gif"></td>
 258 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
259 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 259 
          <td background="images/bg_member_dark.gif"></td>
260 
        </tr>
 260 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
261 
        <%
 261 
        </tr>
262 
        Call objFormComponent.FormEnd()
 262 
        <%
263 
        '-- FROM END -----------------------------------------------------------
 263 
        Call objFormComponent.FormEnd()
264 
        %>
 264 
        '-- FROM END -----------------------------------------------------------
265 
      </table>
 265 
        %>
266 
      <!-------------------------------------------------------->
 266 
      </table>
267 
    </td>
 267 
      <!-------------------------------------------------------->
268 
    <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>
 268 
    </td>
269 
  </tr>
 269 
    <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>
270 
  <tr>
 270 
  </tr>
271 
    <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>
 271 
  <tr>
272 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
 272 
    <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>
273 
  </tr>
 273 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
274 
</table>
 274 
  </tr>
275 
<!-- FOOTER -->
 275 
</table>
276 
<!--#include file="_footer.asp"-->
 276 
<!-- FOOTER -->
277 
</body>
 277 
<!--#include file="_footer.asp"-->
278 
</html>
 278 
</body>
279 
<%
 279 
</html>
280 
Call Destroy_All_Objects
 280 
<%
281 
%>
 281 
Call Destroy_All_Objects
- 
 
 282 
%>