| Line 74... |
Line 74... |
| 74 |
objZIPObject.ArgsAdd(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\nodespecfiles\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &"\*.*")
|
74 |
objZIPObject.ArgsAdd(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\nodespecfiles\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &"\*.*")
|
| 75 |
objZIPObject.Zip
|
75 |
objZIPObject.Zip
|
| 76 |
|
76 |
|
| 77 |
Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error
|
77 |
Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error
|
| 78 |
|
78 |
|
| 79 |
'Response.write "Node Spec Files Generated.<br>"
|
79 |
Response.write "Node Spec Files Generated for: "&objAccessControl.UserEmail&"<br>"
|
| 80 |
'Response.write "Go to <a href=\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\nodespecfiles>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\nodespecfiles</a>"
|
80 |
Response.write "Go to <a href=\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\nodespecfiles>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\nodespecfiles</a>"
|
| 81 |
Dim myMail, LocalPath
|
81 |
Dim myMail, LocalPath
|
| 82 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
82 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
| 83 |
LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\nodespecfiles\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
|
83 |
LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\nodespecfiles\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"
|
| 84 |
|
84 |
|
| 85 |
myMail.Host = SMTP_HOST
|
85 |
myMail.Host = SMTP_HOST
|