السلام عليكم
اخواني انا محتاس في هذا الكود وهو :
عندي صفحة تحتوي على 3 حقول هي
frind1 و frind2 وfrind3
يقدر الشخص يكتب فيها عناوين بريد لاصدقائه
من اجل ان يخبرهم عن موقعي (تمام)
عند ظغط زر ارسال يكون عمل صفحة ASP هو
بعد المقدمة طبعا
'هذ الكود مسؤول عن ارسال البريد
for i = 1 to 3
if Request.Form("frind" & i)<> "" then
Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.From = StrFrom
NewMail.to=trim(Request.Form("frind" & i))
NewMail.Subject = strSubject
NewMail.Body = strBody
NewMail.Send
set NewMail = Nothing
end if
next
وظيفة الكود
1 - يختبر ان الحقل ليس فارغاً
2 - ينشئ كائن البريد ويسند القيم اليه
3 - ينفذ الاوامر ثلاث مرات
المشكلة ان هذا الكود لايعمل ويقوم بارسال خطا الى بريدي
ارجو ممكن يعرف شئ عن الكائن CDONTS.NewMail وطريقة كتابة الكود الصحيحة ان يخبرني
شكرا