| Line 25... |
Line 25... |
| 25 |
<!--#include file="_access_control_general.asp"-->
|
25 |
<!--#include file="_access_control_general.asp"-->
|
| 26 |
<!--#include file="_access_control_project.asp"-->
|
26 |
<!--#include file="_access_control_project.asp"-->
|
| 27 |
<%
|
27 |
<%
|
| 28 |
'------------ Variable Definition -------------
|
28 |
'------------ Variable Definition -------------
|
| 29 |
Dim rsQry
|
29 |
Dim rsQry
|
| 30 |
Dim myMail
|
- |
|
| 31 |
'------------ Constants Declaration -----------
|
30 |
'------------ Constants Declaration -----------
|
| 32 |
'------------ Variable Init -------------------
|
31 |
'------------ Variable Init -------------------
|
| 33 |
'----------------------------------------------
|
32 |
'----------------------------------------------
|
| 34 |
%>
|
33 |
%>
|
| 35 |
<%
|
34 |
<%
|
| Line 78... |
Line 77... |
| 78 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
77 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 79 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
78 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 80 |
|
79 |
|
| 81 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0))
|
80 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0))
|
| 82 |
|
81 |
|
| 83 |
|
- |
|
| 84 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
82 |
Send_Email "Release Manager Notification",_
|
| 85 |
myMail.Host = SMTP_HOST
|
83 |
adminEmail, _
|
| - |
|
84 |
rsQry("user_email")&", releasem@erggroup.com", _
|
| 86 |
myMail.Subject="Project Release Archival Request"
|
85 |
"Project Release Archival Request", _
|
| 87 |
myMail.Body = "The Release Branch " & rsQry("rtag_name") &" in Project " & rsQry("proj_name") &" will be archived after 5 days. Please contact the Administrator for any change to the request."
|
86 |
"The Release Branch " & rsQry("rtag_name") &" in Project " & rsQry("proj_name") &" will be archived after 5 days. Please contact the Administrator for any change to the request.",_
|
| 88 |
myMail.From=ADMIN_EMAIL
|
- |
|
| 89 |
myMail.AddAddress rsQry("user_email")&", releasem@erggroup.com"
|
- |
|
| 90 |
|
- |
|
| 91 |
myMail.Send
|
- |
|
| 92 |
set myMail=nothing
|
87 |
NULL
|
| 93 |
|
88 |
|
| 94 |
rsQry.Close()
|
89 |
rsQry.Close()
|
| 95 |
Set rsQry = Nothing
|
90 |
Set rsQry = Nothing
|
| 96 |
|
91 |
|
| 97 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
92 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 98 |
OraDatabase.Parameters.Remove "USER_ID"
|
93 |
OraDatabase.Parameters.Remove "USER_ID"
|