Subversion Repositories DevTools

Rev

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

Rev 4553 Rev 5357
Line 299... Line 299...
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"
 302 
    'myMail.AddAddress Request("user")&"@erggroup.com"
303 
    Send_Email "Release Manager Notification",_
 303 
    Send_Email "Release Manager Notification",_
304 
               adminEmail, _
 304 
               ADMIN_EMAIL, _
305 
               objAccessControl.UserEmail,_
 305 
               objAccessControl.UserEmail,_
306 
               "Projects Report"  , _
 306 
               "Projects Report"  , _
307 
               "Your requested report...",_
 307 
               "Your requested report...",_
308 
               LocalPath
 308 
               LocalPath
309
309