| Line 34... |
Line 34... |
| 34 |
parFromPv_id = QStrPar("FromPv_id")
|
34 |
parFromPv_id = QStrPar("FromPv_id")
|
| 35 |
parToRtag_id = QStrPar("rtag_id")
|
35 |
parToRtag_id = QStrPar("rtag_id")
|
| 36 |
sMessage = NULL
|
36 |
sMessage = NULL
|
| 37 |
If parFRpkg_id = "" Then parFRpkg_id = "-1"
|
37 |
If parFRpkg_id = "" Then parFRpkg_id = "-1"
|
| 38 |
If parFRpv_id = "" Then parFRpv_id = "-1"
|
38 |
If parFRpv_id = "" Then parFRpv_id = "-1"
|
| - |
|
39 |
objPMod.PersistInQryString("rtag_id")
|
| 39 |
'----------------------------------------------
|
40 |
'----------------------------------------------
|
| 40 |
%>
|
41 |
%>
|
| 41 |
<%
|
42 |
<%
|
| 42 |
'-------------------------------------------------
|
43 |
'-------------------------------------------------
|
| 43 |
' Function: Get_Packages
|
44 |
' Function: Get_Packages
|
| Line 46... |
Line 47... |
| 46 |
' Arguments: NNpkg_id - Currently selected pkg_id
|
47 |
' Arguments: NNpkg_id - Currently selected pkg_id
|
| 47 |
'
|
48 |
'
|
| 48 |
Sub Get_Packages ( NNpkg_id )
|
49 |
Sub Get_Packages ( NNpkg_id )
|
| 49 |
Dim rsTemp, Query_String, tempLINK
|
50 |
Dim rsTemp, Query_String, tempLINK
|
| 50 |
Query_String = _
|
51 |
Query_String = _
|
| 51 |
"SELECT * FROM packages ORDER BY pkg_name ASC"
|
52 |
"SELECT * FROM packages ORDER BY UPPER(pkg_name) ASC"
|
| 52 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
53 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 53 |
|
54 |
|
| 54 |
Response.write "<select name='FRpkg_id' onChange=""MM_showProgressBar();MM_jumpMenu('window',this,0)"" class='form_item'>"
|
55 |
Response.write "<select name='FRpkg_id' onChange=""MM_showProgressBar();MM_jumpMenu('window',this,0)"" class='form_item'>"
|
| 55 |
Response.write "<option value=''>Select Package</option>"
|
56 |
Response.write "<option value=''>Select Package</option>"
|
| 56 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
57 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|