<% Function SendEmail(FromName, ToAddress, cc,BCC, Subj, Message) Set objEmail = Server.CreateObject("CDO.Message") objEmail.From = FromName objEmail.To = ToAddress objEmail.CC=cc objEmail.Bcc=BCC objEmail.Subject = Subj objEmail.HTMLBody = Message objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@adityafindings.com" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "info2013" objEmail.Configuration.Fields.Update objEmail.Send set objEmail=nothing End Function %>