[supx]

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
%>

[soul]

on error resume next

satırını kaldırırsan hata hakkında bilgi alabilirsin.. En azından gönderildi demez ve satırı da verebilir...

[supx]

ok sorun çözüldü

Şu "on error resume next " i de öğrenmiş oldum.

[biker]

hatta

if err then response.write "hata vardi burada" end if

seklinde bisilerde yapabilirsiniz.. :)

[x-daemon]

Aslinda biraz yanlis kullanmissin gibi.

on error resume next'ten sonra hata'yi yakalamak istedigin statement'i yazmalisin.
sonra da

if err.number<>0 then ' hata kodu sifirdan farkli ise;
  response.write err.desciption ' hatanin aciklamasini yazdiriyoruz
end if
err.clear

seklinde kullanman daha saglikli olur

[biker]

amacim zaten herhangi bir hata oldugunda hata var diye yazmakti.