Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5958
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	   Download a BOM attachment
 4 
'                  Download a BOM attachment
5 
'=====================================================
 5 
'=====================================================
6 
%>
 6 
%>
7 
<%
 7 
<%
8 
Option explicit
 8 
Option explicit
9 
' Good idea to set when using redirect
 9 
' Good idea to set when using redirect
10 
Response.Expires = 0	' always load the page, dont store
 10 
Response.Expires = 0    ' always load the page, dont store
11 
%>
 11 
%>
12 
 
 12 
 
13 
<!--#include file="common/config.asp"-->
 13 
<!--#include file="common/config.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
Line 37... Line 37...
37 
'-----------------------  MAIN LINE  ---------------------------
 37 
'-----------------------  MAIN LINE  ---------------------------
38 
 
 38 
 
39 
'--- Process submition ---
 39 
'--- Process submition ---
40 
 
 40 
 
41 
If (parBom_id <> "") Then
 41 
If (parBom_id <> "") Then
42
42
43 
    Dim sName
 43 
    Dim sName
44 
    Dim OraParameters
 44 
    Dim OraParameters
45 
    Set OraParameters = OraDatabase.Parameters
 45 
    Set OraParameters = OraDatabase.Parameters
46 
 
 46 
 
47 
    OraParameters.Add "Name"        , Empty,ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 47 
    OraParameters.Add "Name"        , Empty,ORAPARM_OUTPUT, ORATYPE_VARCHAR2
Line 75... Line 75...
75 
        Response.Buffer = true
 75 
        Response.Buffer = true
76 
        Response.Clear
 76 
        Response.Clear
77 
        Response.ContentType = OraParameters("ContentType").Value
 77 
        Response.ContentType = OraParameters("ContentType").Value
78 
        Response.AddHeader "Content-Disposition", "attachment; filename=""" & OraParameters("Name").Value & """"
 78 
        Response.AddHeader "Content-Disposition", "attachment; filename=""" & OraParameters("Name").Value & """"
79 
        Response.Flush
 79 
        Response.Flush
80 
Response.BinaryWrite  buffer
 80 
        Response.BinaryWrite  buffer
81
81
82 
    ' Check for the Status property for polling read operation
82 
    ' Check for the Status property for polling read operation
83 
    While PartImage.Status = ORALOB_NEED_DATA
83 
    While PartImage.Status = ORALOB_NEED_DATA
84 
        AmountRead = PartImage.Read(buffer, chunksize)
84 
        AmountRead = PartImage.Read(buffer, chunksize)
85 
'Response.write "<br>Data:" &  AmountRead '& ":" & buffer
85 
        'Response.write "<br>Data:" &  AmountRead '& ":" & buffer
86 
Response.BinaryWrite  buffer
 86 
        Response.BinaryWrite  buffer
87 
    Wend
87 
    Wend
88 
    Response.Flush
 88 
    Response.Flush
- 
 
 89 
    Call Destroy_All_Objects
89 
	Response.End
 90 
    Response.End
90 
 
 91 
 
91 
Else
 92 
Else
92 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 93 
    Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
93 
	Response.write QSTR_All
94 
    Response.write QSTR_All
94
95
95 
End If
 96 
End If
- 
 
 97 
Call Destroy_All_Objects
96 
%>
 98 
%>
97 
 
 99 
 
98 
 
 - 
 
99 
<!-- DESTRUCTOR ------->
 - 
 
100 
<!--#include file="common/globals_destructor.asp"-->
 - 
 
101 
 
 -