| Line 22... |
Line 22... |
| 22 |
'------------ VARIABLE DEFINITION -------------
|
22 |
'------------ VARIABLE DEFINITION -------------
|
| 23 |
Dim rsQry
|
23 |
Dim rsQry
|
| 24 |
Dim objFormCollector
|
24 |
Dim objFormCollector
|
| 25 |
Dim sMessage
|
25 |
Dim sMessage
|
| 26 |
'------------ CONSTANTS DECLARATION -----------
|
26 |
'------------ CONSTANTS DECLARATION -----------
|
| 27 |
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
|
- |
|
| 28 |
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
|
- |
|
| 29 |
'------------ VARIABLE INIT -------------------
|
27 |
'------------ VARIABLE INIT -------------------
|
| 30 |
sMessage = NULL
|
28 |
sMessage = NULL
|
| 31 |
parBom_id = Request("bom_id")
|
29 |
parBom_id = Request("bom_id")
|
| 32 |
parOs_id = Request("os_id")
|
30 |
parOs_id = Request("os_id")
|
| 33 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
31 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|