βοήθεια σε προγραμματισμό με cdosys

[freeworld]

Χαίρετε αντιμετωπίζω το εξής πρόβλημα, προσπαθώ να φτιάξω μια φόρμα με cdosys.

Αλλά όταν κάνω send την φόρμα με τα στοιχεία που θέλω, μου εμφανίζει πρόβλημα στην γραμμή που

είναι η εντολή "oMail.Send" και δεν μου τη στέλνει.

παραθέτω το κώδικα που χρησιμοποιώ για να μου στείλει τα στοιχεία.

Κάθε ιδέα ευπρόσδεκτη.

 

Υ.Γ. δεν γνωρίζω πολλά από προγραμματισμό, τώρα προσπαθώ να μάθω κάτι.

 

Ευχαριστώ

 

"

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%>

 

 

<%

dim oMail

dim mailText

Set oMail = Server.CreateObject("CDO.Message")

Set oMailConfig = Server.CreateObject ("CDO.Configuration")

 

 

oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

oMailConfig.Fields.Update

 

Set oMail.Configuration = oMailConfig

oMail.From = "[email protected]"

oMail.To = "[email protected]"

oMail.Subject = "φορμα επικοινωνίας"

oMail.HTMLBody = mailText

oMail.Send

 

Set oMail = Nothing

Set oMailConfig = Nothing

 

 

Response.Write("Your e-mail has been sent")

%>"