Arkadaşlar aşağıdaki kodu persist
mail sisteminden cdonts a geçirmeye çalıştım az olan
ASP bilgim ile
mail gönderdiğimde "Başarılı..." desede
mail gönderemiyor kodlarda mutlaka bir eksiklik var (sanırım nereye göndereceğini tanımlayamadım) ama içinden çıkamadım... Hata konusunda yardım edebilecek varmı? Kodun neresinde hata var ?
-----
<%,
dim message
dim
mail
dim subject
dim host
dim db
dim rs
dim dbfile
dim str
dim senderName
dim sender
subject = request.
form ("subject")
message = request.
form ("message")
senderName = "supx"
sender = "ab@atillabybara.com"
dbfile =
server.MapPath ("../../db/test.mdb")
Set
mail =
server.Createobject("CDONTS.NewMail")
on error resume next
set db =
server.CreateObject ("adodb.connection")
set rs =
server.CreateObject ("adodb.recordset")
Set
mail =
server.Createobject("CDONTS.NewMail")
str = "DRIVER={
Microsoft Access Driver (*.mdb)};DBQ=" & dbfile
err.clear
db.Open str
if err <> 0 then response.Write "opening database failed.."
rs.Open "select * from members", db, 3, 2, 1
mail.From = sender
mail.Subject = subject
mail.Body = message
mail.To = rs
do until rs.EOF
mail.AddBcc rs.Fields ("address").Value, rs.Fields ("name").Value
rs.MoveNext
loop
err.clear
mail.Send
if err.number <> 0 then
Response.Write "gönderemedi"
else
Response.Write "başarılı..."
end if
rs.Close
set rs = nothing
db.Close
set db = nothing
set
mail = nothing
%>