form mail asp da flash

[Ocity]

salve a tutti!

esco con variabili mittente, titolo e corpo da flash:
loadVariablesNum ("http://www.asd.com/prova/sendmail.asp", 0, "POST");

nel sendmail.asp ho questo codice, tenendo conto che era già stato modificato in precedenza secondo qualche aiuto, per funzionare a dovere sul server che mi hosta.

dim sMailServer,objMail,objConf,objFields
sMailServer = "localhost"

Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")  = sMailServer
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
End With

With objMail
      Set .Configuration = objConf
        .From = mittente
        .To = [email]mia@mail.it[/email]
        .Subject = titolo
        .TextBody = corpo
End With 

è da stamattina che tento di apportare modifiche ma non riesco a farlo funzionare...
sapreste dirmi dove stò sbagliando?
grazie mille!

ps. [email] e la sua chiusura sono tag che ha aggiunto il forum :P

[Ocity]

controllando meglio nel forum ho trovato un esempio molto simile al mio...
l'ho modificato con i dati che mi servivano ma ancora nulla...

<%
Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.191.it"

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

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

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

End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Recupero le variabili
inputMittente = trim(request.form("mittente"))
inputMail = trim(request.form("mail"))
inputCorpo = trim(request.form("corpo"))

' Assegna all'oggetto le proprietà necessarie
objMail.From = "WebMail" ' Mittente
objMail.To = "x@x.it" ' Destinatario
objMail.Subject = "WebMail" ' Oggetto
objMail.TextBody = "Messaggio inviato da: Nome" & inputMittente & ", Mail" & inputMail & ", Testo" & inputCorpo & ""

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente " &_
"all'indirizzo as")
%> 

se qualcuno sapesse darmi una mano gliene sarei grato!

[Ocity]

up'!

[Ocity]

ip!

<%
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig

Set objMail = Server.createObject("CDO.Message")

Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update

End With


Set objMail.Configuration = objConfig

objMail.From = trim(request.form("mittente")) ' Mittente
objMail.To = "bnm@jhg.it" ' Destinatario
objMail.Subject = trim(request.form("mail")) ' Oggetto
objMail.HTMLBody = trim(request.form("corpo")) ' Messaggio

objMail.Send()
Set objMail = Nothing

else %>

<% end if %>