| Line 69... |
Line 69... |
| 69 |
' Create a sane path name for the output file
|
69 |
' Create a sane path name for the output file
|
| 70 |
' Need to use the same rules as NodesSpecRelease.wsf to allow for BOM versions with a '/' in the name
|
70 |
' Need to use the same rules as NodesSpecRelease.wsf to allow for BOM versions with a '/' in the name
|
| 71 |
'
|
71 |
'
|
| 72 |
Dim LocalPath, ZipFile, filesys, eMsg, zCount
|
72 |
Dim LocalPath, ZipFile, filesys, eMsg, zCount
|
| 73 |
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))
|
73 |
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))
|
| 74 |
LocalPath = Request.ServerVariables("APPL_PHYSICAL_PATH") &_
|
74 |
LocalPath = Server.MapPath("nodespecfiles") & "\" &_
|
| 75 |
"deployment_manager\nodespecfiles\"&_
|
- |
|
| 76 |
NicePath(rsQry("branch_name")) & "\" &_
|
75 |
NicePath(rsQry("branch_name")) & "\" &_
|
| 77 |
NicePath(rsQry("version")) & "\"&_
|
76 |
NicePath(rsQry("version")) & "\"&_
|
| 78 |
DateReversed(Date)
|
77 |
DateReversed(Date)
|
| 79 |
ZipFile = LocalPath &".zip"
|
78 |
ZipFile = LocalPath &".zip"
|
| 80 |
|
79 |
|