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 
<%