| Line 26... |
Line 26... |
| 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 |
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
|
- |
|
| 32 |
parProjId = Request("proj_id")
|
31 |
parProjId = Request("proj_id")
|
| 33 |
objPMod.PersistInQryString("proj_id")
|
32 |
objPMod.PersistInQryString("proj_id")
|
| 34 |
If parProjId = "" then parProjId = 0
|
33 |
If parProjId = "" then parProjId = 0
|
| 35 |
'----------------------------------------------
|
34 |
'----------------------------------------------
|
| 36 |
%>
|
- |
|
| 37 |
<%
|
35 |
|
| 38 |
Function Get_My_Interest_Packages ( NNuser_id )
|
36 |
Function Get_My_Interest_Packages ( NNuser_id )
|
| 39 |
Get_My_Interest_Packages = _
|
37 |
Get_My_Interest_Packages = _
|
| 40 |
" 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 &""&_
|
| 41 |
" 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"
|
| 42 |
End Function
|
40 |
End Function
|