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