Subversion Repositories DevTools

Rev

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

Rev 6643 Rev 6646
Line 99... Line 99...
99 
	If rsTemp("is_readonly") = "Y" Then
 99 
	If rsTemp("is_readonly") = "Y" Then
100 
		myMail.Subject="OFFICIAL XML BOMS Generated from Deployment Manager"
 100 
		myMail.Subject="OFFICIAL XML BOMS Generated from Deployment Manager"
101 
	Else
 101 
	Else
102 
		myMail.Subject="THESE ARE NOT OFFICIAL XML BOMS!!!"
 102 
		myMail.Subject="THESE ARE NOT OFFICIAL XML BOMS!!!"
103 
	End If
 103 
	End If
104 
	myMail.From="releasem@erggroup.com"
 104 
	myMail.From="releasem@vixtechnology.com"
105 
	myMail.AddAddress objAccessControl.UserEmail
 105 
	myMail.AddAddress objAccessControl.UserEmail
106 
	' Attach the file
 106 
	' Attach the file
107 
	myMail.AddAttachment ZipFile
 107 
	myMail.AddAttachment ZipFile
108 
	myMail.Body = "Your requested xml files .."
108 
	myMail.Body = "Your requested xml files .."
109 
	myMail.Send
 109 
	myMail.Send
Line 114... Line 114...
114 
	rsTemp.Close()
 114 
	rsTemp.Close()
115 
	Set rsTemp = Nothing
 115 
	Set rsTemp = Nothing
116 
	rsQry.Close()
 116 
	rsQry.Close()
117 
	Set rsQry = nothing
 117 
	Set rsQry = nothing
118
118
119 
	'Response.write "<br>You will be emailed shortly with the XML files generated.<br>"
 - 
 
120 
	'Response.write "Go to <a href='\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads'>\\auperaweb08\wwwTRD\manager_suite_DEVELOPMENT\deployment_manager\downloads</a>"
 - 
 
121
- 
 
122 
Else
 119 
Else
123 
	Response.write "Please specify bom_id. <br>Example:<br> "& SCRIPT_NAME &"?bom_id=1234"
 120 
	Response.write "Please specify bom_id. <br>Example:<br> "& SCRIPT_NAME &"?bom_id=1234"
124 
End If
 121 
End If
125 
 
 122 
 
126 
'**********************************************************************
 123 
'**********************************************************************