Subversion Repositories DevTools

Rev

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

Rev 25 Rev 4476
Line 53... Line 53...
53
53
54 
	OraDatabase.Parameters.Remove "BOM_ID"
 54 
	OraDatabase.Parameters.Remove "BOM_ID"
55 
	OraDatabase.Parameters.Remove "USER_ID"
55 
	OraDatabase.Parameters.Remove "USER_ID"
56
56
57 
	Dim rsQry, objZIPObject
 57 
	Dim rsQry, objZIPObject
- 
 
 58 
    Dim LocalPath, ZipFile, filesys, eMsg, zCount
- 
 
 59 
 
58 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bn.BOM_NAME, br.BRANCH_NAME, bn.BOM_NAME ||''|| b.BOM_VERSION ||'.'|| b.BOM_LIFECYCLE AS VERSION FROM BOMS B, BRANCHES BR, BOM_NAMES BN WHERE B.BOM_ID = "& Request("bom_id") &" AND B.BRANCH_ID = BR.BRANCH_ID AND B.BOM_NAME_ID = BN.BOM_NAME_ID", cint(0))
 60 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bn.BOM_NAME, br.BRANCH_NAME, bn.BOM_NAME ||''|| b.BOM_VERSION ||'.'|| b.BOM_LIFECYCLE AS VERSION FROM BOMS B, BRANCHES BR, BOM_NAMES BN WHERE B.BOM_ID = "& Request("bom_id") &" AND B.BRANCH_ID = BR.BRANCH_ID AND B.BOM_NAME_ID = BN.BOM_NAME_ID", cint(0))
59
61
60 
	Set objZIPObject = Server.CreateObject("aspZip.EasyZIP")
 62 
    LocalPath = Request.ServerVariables("APPL_PHYSICAL_PATH") &_
61
- 
 
62 
	objZIPObject.ZipFileName = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
 63 
                "deployment_manager\downloads\"&_
63 
	objZIPObject.ArgsClear
 64 
                NicePath(rsQry("branch_name")) & "\" &_
64 
	objZIPObject.ArgsAdd(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &"\*.*")
 65 
                NicePath(rsQry("version")) & "\"&_
65 
	objZIPObject.Zip
 66 
                DateReversed(Date)
66
- 
 
67 
	Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error
 67 
    ZipFile = LocalPath &".zip"
68 
	'Response.Write(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("bom_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip")
 - 
 
69
- 
 
70
- 
 
71 
 
 68 
 
- 
 
 69 
    Set filesys = CreateObject("Scripting.FileSystemObject")
- 
 
 70 
    Set objZIPObject = Server.CreateObject("XStandard.Zip")
- 
 
 71 
 
- 
 
 72 
    If filesys.FileExists(ZipFile) Then
- 
 
 73 
        filesys.DeleteFile ZipFile, TRUE
- 
 
 74 
    End If
- 
 
 75 
 
- 
 
 76 
    objZIPObject.Pack LocalPath &"\*.*", ZipFile
- 
 
 77 
    eMsg = objZIPObject.ErrorDescription
- 
 
 78 
    zCount = objZIPObject.Contents(ZipFile).Count
- 
 
 79 
 
- 
 
 80 
    Response.Write "Files Zipped=" & zCount
- 
 
 81 
    If eMsg <> "" Then
- 
 
 82 
        Response.Write " with Error=" & eMsg
- 
 
 83 
    End If
- 
 
 84 
	'Response.Write("" & ZipFile)
- 
 
 85 
 
- 
 
 86 
    'objZIPObject = Nothing
- 
 
 87 
    Set filesys = Nothing
72
88
73 
	Dim myMail, LocalPath
 89 
	Dim myMail
74 
	Set myMail=Server.CreateObject("Persits.MailSender")
 90 
	Set myMail=Server.CreateObject("Persits.MailSender")
75 
	LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
 - 
 
76
91
77 
	myMail.Host = SMTP_HOST
 92 
	myMail.Host = SMTP_HOST
78
93
79 
	Dim rsTemp
 94 
	Dim rsTemp
80
95
Line 86... Line 101...
86 
		myMail.Subject="THESE ARE NOT OFFICIAL XML BOMS!!!"
 101 
		myMail.Subject="THESE ARE NOT OFFICIAL XML BOMS!!!"
87 
	End If
 102 
	End If
88 
	myMail.From="releasem@erggroup.com"
 103 
	myMail.From="releasem@erggroup.com"
89 
	myMail.AddAddress objAccessControl.UserEmail
 104 
	myMail.AddAddress objAccessControl.UserEmail
90 
	' Attach the file
 105 
	' Attach the file
91 
	myMail.AddAttachment LocalPath
 106 
	myMail.AddAttachment ZipFile
92 
	myMail.Body = "Your requested xml files .."
107 
	myMail.Body = "Your requested xml files .."
93 
	myMail.Send
 108 
	myMail.Send
94
109
95 
	set myMail = nothing
 110 
	set myMail = nothing
96 
	set objWSH = nothing
 111 
	set objWSH = nothing
97
112
98
- 
 
99 
	rsTemp.Close()
 113 
	rsTemp.Close()
100 
	Set rsTemp = Nothing
 114 
	Set rsTemp = Nothing
101 
	rsQry.Close()
 115 
	rsQry.Close()
102 
	Set rsQry = nothing
 116 
	Set rsQry = nothing
103
117