<!--#include virtual="/include/adoconn.asp"--> 
<%
MIN = request("ID")

Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open "select * from matching where MIN=" & MIN,conn,1,3,8

' 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("man_email"))
SendMail.MailFrom = "dazero@netcity.ru"
SendMail.MailSubject = "You matching was started"
SendMail.MailMessage = "Your matching was startd"
SendMail.MailIP = ""
SendMail.MailDn = "relay1.mos.ru"
SendMail.Send()

' Письмо тетке
Set SendMail = Server.CreateObject("SendEMail.SendEMail")
SendMail.MailTo = CStr(rs.Fields("girl_email"))
SendMail.MailFrom = "dazero@netcity.ru"
SendMail.MailSubject = "You have new matching attempt!"
SendMail.MailMessage = "You have new matching attempt!"
SendMail.MailIP = ""
SendMail.MailDn = "relay1.mos.ru"
SendMail.Send()

rs.Fields("is_checked") = true


rs.Update
rs.Close

Response.Redirect "/admin/listnewmatch.asp"
%>