Como Configuro Isto?

[Guest - Marcos -]

--> pessoal tenho o codigo abaixo pra envio de form por cdo mais não sei bem como configurar o mesmo com as minhas definições:

<%

'Create the e-mail server object

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

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

'Out going SMTP server

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cjunior.net"

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

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

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

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic authentication

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cjunior@cjunior.net" 'set your username here

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "password" 'set your password here

objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "cjunior@cjunior.net"

objCDOSYSMail.To = "claudiofreirejunior@hotmail.com"

objCDOSYSMail.Subject = "Subject goes here"

objCDOSYSMail.HTMLBody = "html enhanced email message goes here"

objCDOSYSMail.Send

'Close the server mail object

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

%>

Help!!!

[cyberalexxx]

seja mais especifico!!!

O q voce não esta conseguindo fazer???