<% AIN = request("ID") Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.Open "select * from users_ads where AIN=" & AIN,conn,1,3,8 rs.MoveFirst ' CDONTS variant 'Set NewMessage = Server.CreateObject("CDONTS.NewMail") 'NewMessage.To = CStr(rs.Fields("email")) 'NewMessage.From = "dazero@netcity.ru" 'NewMessage.BodyFormat = 1 ' plain text 'NewMessage.Subject = "You message was published on Russian Relations" 'NewMessage.Body = "Your message was published on Russian Relations. Your AIN is " & CStr(rs.Fields("ain")) & " and e-mail is " & CStr(rs.Fields("email")) 'NewMessage.Send 'Set NewMessage = nothing ' SendMail variant Set SendMail = Server.CreateObject("SendEMail.SendEMail") SendMail.MailTo = CStr(rs.Fields("email")) SendMail.MailFrom = "dazero@netcity.ru" SendMail.MailSubject = "You message was published on Russian Relations" SendMail.MailMessage = "Your message was published on Russian Relations. Your AIN is " & CStr(rs.Fields("ain")) & " and e-mail is " & CStr(rs.Fields("email")) SendMail.MailIP = "" SendMail.MailDn = "relay1.mos.ru" SendMail.Send() rs.Fields("is_checked") = true rs.Fields("is_published") = true If isNull(rs.Fields("first_publish_date")) Then rs.Fields("first_publish_date") = date rs.Fields("last_publish_date") = date rs.Update rs.Close Response.Redirect "/admin/listnewads.asp" %>