<%
Set arrTo = Session("arrTo")
Set arrCc = Session("arrCC")
Set arrBcc = Session("arrBcc")
Set arrFiles = Session("arrFiles")
' Handle "Send Message" button
Mail.Host = "mail.drstech.co.in" ' replace it with your own SMTP server address
If Request("SEND") <> "" Then
' get addresses from collections
Items = arrTo.Items
For i = 0 to arrTo.Count - 1
Mail.AddAddress Items(i)
Next
Items = arrCc.Items
For i = 0 to arrCc.Count - 1
Mail.AddCc Items(i)
Next
Items = arrBcc.Items
For i = 0 to arrBcc.Count - 1
Mail.AddBcc Items(i)
Next
Items = arrFiles.Items
For i = 0 to arrFiles.Count - 1
Mail.AddAttachment Items(i)
Next
Mail.From = "info@persits.com"
Mail.FromName = "Sundarban"
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
ErrStr = ""
If Request("Signature") <> "" Then
' Send signed message. Use Persits Software AspEncrypt (www.aspencrypt.com)
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Context = CM.OpenContext( "", True)
Set Msg = Context.CreateMessage
CM.LogonUser "", "Administrator", "xxxxxxxx"
Set Store = CM.OpenStore( "MY", True)
' use your own signer certificate serial number here
Set SignerCert = Store.Certificates("67D1 4E91 A7EF DDA8 490E BC7D 5621 CA1C")
Msg.SetSignerCert SignerCert
On Error Resume Next
Mail.SendSigned Msg
If Err <> 0 Then
ErrStr = Err.Description
Else
arrTo.RemoveAll
arrCc.RemoveAll
arrBcc.RemoveAll
arrFiles.RemoveAll
ErrStr = "success"
End If
On Error Goto 0 ' cancel On Error Resume Next
Else
' send regular (no signature)
On Error Resume Next
if not Mail.Send Then
ErrStr = Err.Description
Else
arrTo.RemoveAll
arrCc.RemoveAll
arrBcc.RemoveAll
arrFiles.RemoveAll
ErrStr = "success"
End If
On Error Goto 0 ' cancel On Error Resume Next
End If ' send signed?
End If
' Handle "Add Address" buttons
Session("Count") = Session("Count") + 1
If Request("Address") <> "" Then arrTo.Add Session("Count"), CStr(Request("Address"))
If Request("CCAddress") <> "" Then arrCc.Add Session("Count"), CStr(Request("CCAddress"))
If Request("BccAddress") <> "" Then arrBcc.Add Session("Count"), CStr(Request("BccAddress"))
' Handle Delete command
If Request("DeleteTo") <> "" Then arrTo.Remove CInt(Request("DeleteTo"))
If Request("DeleteCc") <> "" Then arrCc.Remove CInt(Request("DeleteCc"))
If Request("DeleteBcc") <> "" Then arrBcc.Remove CInt(Request("DeleteBcc"))
%>
Sundarban
