Subversion Repositories DevTools

	'Dim rsQry, objZIPObject

	'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))

	'Set objZIPObject = Server.CreateObject("aspZip.EasyZIP")

	'objZIPObject.ZipFileName = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"

	'objZIPObject.ArgsClear

	'objZIPObject.ArgsAdd(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &"\*.*")

	'objZIPObject.Zip

	'Response.Write "Files Zipped=" & objZIPObject.SuccessCNT & " with Error="& objZIPObject.Error

	'Response.Write(""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("bom_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip")

	'Dim myMail, LocalPath

	'Set myMail=Server.CreateObject("Persits.MailSender")

	'LocalPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\downloads\"& rsQry("branch_name") &"\"& rsQry("version") &"\"& DateReversed(Date) &".zip"

	'	

	'myMail.Host = SMTP_HOST

	'myMail.Subject="XML BOM Generated from Deployment Manager"

	'myMail.From="releasem@erggroup.com"

	'myMail.AddAddress objAccessControl.UserEmail

	' Attach the file

	'myMail.AddAttachment LocalPath

	'myMail.Body = "Your requested xml files .." 

	'myMail.Send

	'set myMail = nothing

	'set objWSH = nothing

	'rsQry.Close

	'Set rsQry = nothing

	'Response.write "<br>You will be emailed shortly with the XML files generated.<br>"

	'Response.write "Go to <a href='\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads'>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads</a>"