<%
Response.Buffer = True

Dim strBody
Dim Konu
Dim Derece
Dim Mesaj
Dim objCDOMail
Dim strMyEmailAddress   
Dim strReturnEmailAddress 
Dim adoCon    
Dim Rs1
Dim strSQL1 
Dim Rs2
Dim strSQL2 
Dim SubeID

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("TestDB.mdb")

Set Rs1= Server.CreateObject("ADODB.Recordset")
strSQL1 = "SELECT * From Bireysel"
Rs1.Open strSQL1, adoCon

SubeID = Rs1("SubeID")

Set Rs2= Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * From Musteri where SubeID2 = '" & SubeID & "'"
Rs2.Open strSQL2, adoCon

Konu = Request.Form("Konu")
Derece = Request.Form("Derece")
Mesaj = Request.Form("Mesaj")

strMyEmailAddress = " mailto:ben@omertokus.com - ben@omertokus.com "

DO WHILE NOT Rs1.EOF

strBody = "Sayýn " & Rs1("Ad") & "," & "<br><br>"
strBody = strBody & Mesaj & "<br><br>"
strBody = strBody & Rs1("SubeID")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = strMyEmailAddress

objCDOMail.To = Rs1("Mail")

objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Subject = Konu
objCDOMail.Body = strBody
objCDOMail.Importance = Derece
objCDOMail.Send

Rs1.MoveNext
Loop

Set objCDOMail = Nothing

Rs1.Close
Set Rs1 = Nothing

Rs2.Close
Set Rs2 = Nothing

adoCon.Close
Set adoCon = Nothing
%>

Yes, doesn't work!

i need to query in 2 table. Some data is the same. For example , we have to table ; x and y

 

in the x table some id = 1 and have mail address

in the y table some id = 1

 

i want to find them, and send mail automoticly.

 

can u help me ?