%
fno=request.querystring("fno")
fregname=request.querystring("fregname")
jholdername=request.querystring("jholdername")
regadd=request.querystring("regadd")
emailid=request.querystring("emailid")
fdate=request.querystring("fdate")
agree=request.querystring("agree")
HTMLBody = "
"
HTMLBody = HTMLBody & "Registered Folio or DP id - Client Id | " & fno & " |
"
HTMLBody = HTMLBody & "Name of 1st Registered holder | " & fregname & " |
"
HTMLBody = HTMLBody & "Name of Joint Registered holder(s) | " & jholdername & " |
"
if regadd<>"" then
HTMLBody = HTMLBody & "Registered Address | " & regadd & " |
"
end if
HTMLBody = HTMLBody & "Email | " & emailid & " |
"
if date<>"" then
HTMLBody = HTMLBody & "Date | " & fdate & " |
"
end if
HTMLBody = HTMLBody & "Mode | " & agree & " |
"
HTMLBody = HTMLBody & "
"
Set Mail = CreateObject("CDO.Message")
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "indiaglycolsonline@gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "greeninitiative"
Mail.Configuration.Fields.Update
Mail.Subject = "Auto Request - Green Initiative in the Corporate Governance"
Mail.From = "indiaglycolsonline@gmail.com"
Mail.To = "compliance.officer@indiaglycols.com"
Mail.HTMLBody=HTMLBody
Mail.Send
Set Mail = Nothing
Response.Redirect("green_initiative_thank_you.htm")
%>