| Line 30... |
Line 30... |
| 30 |
Dim Query_String
|
30 |
Dim Query_String
|
| 31 |
Dim dual
|
31 |
Dim dual
|
| 32 |
Dim Query_Stringx
|
32 |
Dim Query_Stringx
|
| 33 |
Dim vcs_type_id
|
33 |
Dim vcs_type_id
|
| 34 |
'------------ CONSTANTS DECLARATION -----------
|
34 |
'------------ CONSTANTS DECLARATION -----------
|
| 35 |
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
|
- |
|
| 36 |
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
|
- |
|
| 37 |
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
|
- |
|
| 38 |
'------------ VARIABLE INIT -------------------
|
35 |
'------------ VARIABLE INIT -------------------
|
| 39 |
sMessage = NULL
|
36 |
sMessage = NULL
|
| 40 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
37 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
| 41 |
'------------ CONDITIONS ----------------------
|
38 |
'------------ CONDITIONS ----------------------
|
| 42 |
'----------------------------------------------
|
39 |
'----------------------------------------------
|