Subversion Repositories DevTools

Rev

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

Rev 5355 Rev 5385
Line 24... Line 24...
24 
Dim Query_String
 24 
Dim Query_String
25 
Dim objFormCollector
 25 
Dim objFormCollector
26 
Dim sMessage
 26 
Dim sMessage
27 
Dim SEQ_proc_id
 27 
Dim SEQ_proc_id
28 
'------------ CONSTANTS DECLARATION -----------
 28 
'------------ CONSTANTS DECLARATION -----------
29 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 - 
 
30 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 - 
 
31 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 - 
 
32 
'------------ VARIABLE INIT -------------------
 29 
'------------ VARIABLE INIT -------------------
33 
sMessage = NULL
 30 
sMessage = NULL
34 
isInterface = NULL
 31 
isInterface = NULL
35 
parOs_id = Request("os_id")
 32 
parOs_id = Request("os_id")
36 
parBom_id = Request("bom_id")
 33 
parBom_id = Request("bom_id")
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 36 
'----------------------------------------------
40 
%>
 - 
 
41 
<%
 - 
 
42 
 
 - 
 
43 
%>
 - 
 
44 
<%
 - 
 
45 
'------------ RUN BEFORE PAGE RENDER ----------
 37 
'------------ RUN BEFORE PAGE RENDER ----------
46 
If Request("btn") = "Import" Then
 38 
If Request("btn") = "Import" Then
47 
	If Request("prod_id_list") <> "" Then
 39 
	If Request("prod_id_list") <> "" Then
48
40
49 
		On Error Resume Next
 41 
		On Error Resume Next