Hi guys, i need your help! I tray to connect 2 tables. Then, when i take data, send mail.
<%
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")
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
%>
Edited by BlueMask - 23 June 2005 at 10:26am