Subversion Repositories DevTools

Rev

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

Rev 2365 Rev 3959
Line 23... Line 23...
23
<!--#include file="common/common_subs.asp"-->
23
<!--#include file="common/common_subs.asp"-->
24
<!--#include file="common/common_dbedit.asp"-->
24
<!--#include file="common/common_dbedit.asp"-->
25
<!--#include file="common/_form_window_common.asp"-->
25
<!--#include file="common/_form_window_common.asp"-->
26
<!--#include file="common/_rtree_common.asp"-->
26
<!--#include file="common/_rtree_common.asp"-->
27
<%
27
<%
28
' Set rfile parameter. This is a return page after Login
-
 
29
'Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
-
 
30
'objPMod.PersistInQryString("proj_id")
-
 
31
'------------ ACCESS CONTROL ------------------
28
'------------ ACCESS CONTROL ------------------
32
%>
29
%>
33
<!--#include file="_access_control_login.asp"-->
30
<!--#include file="_access_control_login.asp"-->
34
<!--#include file="_access_control_general.asp"-->
31
<!--#include file="_access_control_general.asp"-->
35
<%
32
<%
Line 1459... Line 1456...
1459
</form>
1456
</form>
1460
<!-- FOOTER -->
1457
<!-- FOOTER -->
1461
<!--#include file="_footer.asp"-->
1458
<!--#include file="_footer.asp"-->
1462
<%
1459
<%
1463
If email Then
1460
If email Then
1464
   Dim myMail, LocalPath
1461
   Dim LocalPath
1465
   Set myMail=Server.CreateObject("Persits.MailSender")
-
 
1466
   LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
1462
   LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
1467
 
1463
 
1468
   myMail.Host = SMTP_HOST
-
 
1469
   myMail.Subject="Release Comparisons from Release Manager"
1464
   Send_Email   "Release Manager Notification",_
1470
   myMail.From="releasem@erggroup.com"
1465
                adminEmail, _
1471
   myMail.AddAddress objAccessControl.UserEmail
1466
                objAccessControl.UserEmail,_
1472
   ' Attach the file
-
 
1473
   myMail.AddAttachment LocalPath
1467
                "Release Comparisons from Release Manager", _
1474
   myMail.Body = "Your requested report..."
1468
                "Your requested report...",_
1475
   myMail.Send
-
 
1476
 
-
 
1477
   set myMail=nothing
1469
                LocalPath
1478
End If
1470
End If
1479
%>
1471
%>
1480
</body>
1472
</body>
1481
</html>
1473
</html>
1482
<%
1474
<%