Hjælp til ASP send mail script

Nå.. fik det faktisk til at virke med CDO :)

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
   
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.mail.dk"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

   
ObjSendMail.Configuration.Fields.Update
   
   
ObjSendMail.To = "chriskalmark@gmail.com"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "adr"
   
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
   
ObjSendMail.Send
   
Set ObjSendMail = Nothing