لدي اسكريبت لإرسال البطاقات البريدية
الاسكريبت يستخدم في الأساس asp smart mail
وبما أن الـ ASP smart ليس مثبت على السيرفر فقمت بتحويل نظام البريد إلى CDONTS حيث أنه النظام الأساسي على نظام الويندوز
و كتبت هذا الكود ولكنه لا يعمل و يعطي لي شاشة خطأ 500
اريد أن أعرف ما هو الخطأ الذي وقعت به
شكرا لمن يتقدم بالمساعدة
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.Server = rsb("mailserver")
objNewMail.From = frommail
objNewMail.To = fromname
objNewMail.Recipients.Add tomail
objNewMail.Subject = "You Have a Post Card"
objNewMail.Body = toname &"," & vbCrLf & fromname & " " & "Has sent you a digital post card "& vbCrLf &_
"you can pick up you card on our site" & " "& mysite & vbCrLf & "by entering your ticket number witch is: " & ticket & vbCrLf & " or simply click on the bleow url to automaticly view your card " & vbCrLf & mysite& "/get.asp?ticket="& ticket & vbCrLf & vbCrLf & "Regards" & vbCrLf & myname & vbCrLf & "* Card must be recived within " & days & " days or it will be deleted"
objNewMail.Send
'Close the server object
Set objNewMail = Nothing