Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5357
Line 3577... Line 3577...
3577 
      If emailReport Then
 3577 
      If emailReport Then
3578 
         Dim LocalPath
 3578 
         Dim LocalPath
3579 
         LocalPath = Server.MapPath("docs\ReleaseDEVIStatus_"&objAccessControl.UserName&".csv")
 3579 
         LocalPath = Server.MapPath("docs\ReleaseDEVIStatus_"&objAccessControl.UserName&".csv")
3580 
 
 3580 
 
3581 
         Send_Email   "Release Manager Notification",_
 3581 
         Send_Email   "Release Manager Notification",_
3582 
                       adminEmail, _
 3582 
                       ADMIN_EMAIL, _
3583 
                       objAccessControl.UserEmail,_
 3583 
                       objAccessControl.UserEmail,_
3584 
                       "Release DEVI Status Report (csv) from Release Manager", _
 3584 
                       "Release DEVI Status Report (csv) from Release Manager", _
3585 
                       "Your requested report...",_
 3585 
                       "Your requested report...",_
3586 
                       LocalPath
 3586 
                       LocalPath
3587 
      End If
 3587 
      End If