Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 6647
Line 297... Line 297...
297 
	Set NewTextFile=Nothing
 297 
	Set NewTextFile=Nothing
298
298
299 
	Dim LocalPath
 299 
	Dim LocalPath
300 
	LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
 300 
	LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
301
301
302 
    'myMail.AddAddress Request("user")&"@erggroup.com"
 - 
 
303 
    Send_Email "Release Manager Notification",_
 302 
    Send_Email "Release Manager Notification",_
304 
               ADMIN_EMAIL, _
 303 
               ADMIN_EMAIL, _
305 
               objAccessControl.UserEmail,_
 304 
               objAccessControl.UserEmail,_
306 
               "Projects Report"  , _
 305 
               "Projects Report"  , _
307 
               "Your requested report...",_
 306 
               "Your requested report...",_