myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "e-posta adresi"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "e-posta şifresi"

Bu satırları ekleyip bir dene.

Kodlarla ilgili bi sorum olacak
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
kısmının amacı nedir.
O kodların sonucunda oluşacak değer
message=Request("message")
ile aynı değer.