Subversion Repositories DevTools

Rev

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

Rev 5357 Rev 5384
Line 26... Line 26...
26 
Dim rsQry
 26 
Dim rsQry
27 
Dim rsTemp
 27 
Dim rsTemp
28 
Dim sMessage
 28 
Dim sMessage
29 
Dim Query_String
 29 
Dim Query_String
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 - 
 
32 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 - 
 
33 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 - 
 
34 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
35 
sMessage = NULL
 32 
sMessage = NULL
36 
 
 33 
 
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
Line 45... Line 42...
45
42
46 
	OraDatabase.Parameters.Add "gbe_id",   ngbe_id,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "gbe_id",   ngbe_id,	ORAPARM_INPUT, ORATYPE_NUMBER
47
44
48 
	query = GetQuery ("GBE_MACHTYPECombo.sql")
 45 
	query = GetQuery ("GBE_MACHTYPECombo.sql")
49
46
50
- 
 
51 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 47 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
52 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 48 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
53 
		GetMachType = rsQry.GetRows()
 49 
		GetMachType = rsQry.GetRows()
54 
	Else
 50 
	Else
55 
		GetMachType = NULL
 51 
		GetMachType = NULL