Per favore qualcuno è cosi gentile da farmi questa traduzione?Io di asp nn nè capisco proprio per me è arabo ma ho la necessità di avere una newletters nel mio sito.Grazie a chi sarà cosi gentile da farmi la traduzione.......

Case "CDONTS"

Do While Not RS.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
If (Request("Format") = "Text") Then
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
Else
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
End If
mailObj.From = RSBODY("From_Email")
mailObj.To = RS("Email")
mailObj.Subject = Request("Subject")
mailObj.Body = Request("Body")
mailObj.Send RS.movenext
Loop