Subversion Repositories DevTools

Rev

Rev 5961 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5961 Rev 6643
Line 59... Line 59...
59 
	Dim rsQry, objZIPObject
 59 
	Dim rsQry, objZIPObject
60 
    Dim LocalPath, ZipFile, filesys, eMsg, zCount
 60 
    Dim LocalPath, ZipFile, filesys, eMsg, zCount
61 
 
 61 
 
62 
	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))
 62 
	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))
63
63
64 
    LocalPath = Request.ServerVariables("APPL_PHYSICAL_PATH") &_
 64 
    LocalPath = Server.MapPath("downloads") & "\" &_
65 
                "deployment_manager\downloads\"&_
 - 
 
66 
                NicePath(rsQry("branch_name")) & "\" &_
 65 
                NicePath(rsQry("branch_name")) & "\" &_
67 
                NicePath(rsQry("version")) & "\"&_
 66 
                NicePath(rsQry("version")) & "\"&_
68 
                DateReversed(Date)
 67 
                DateReversed(Date)
69 
    ZipFile = LocalPath &".zip"
 68 
    ZipFile = LocalPath &".zip"
70 
 
 69