aspmail + flash

[cybotron]

Ciao a tutti, sto' provando ad inviare mail da flash tramite asp, ed usando il metodo cdonts su asp tutto ok funziona.
Il mio problema è che il sever dove risiedono i miei file non supporta cdonts, ma bensi' aspmail.Io ho modificato i file seguendo le indicazioni che mi hanno dato quelli del server ma non funziona, posto il codice sia flash che asp.

Qualcuno mi sa' aiutare??

Grazie.

****************************************+

C O D I C E Flash:

System.useCodePage = true;
function sendMail() {
output = "un attimo...";
// percorso del file ASP
aspURL = "http://www.blu-ip.it//mail.asp";
varMail = new LoadVars();
// decommentare una delle linee seguenti inserendo il giusto indirizzo email
// a secondo se si voglia inviare la email a una o più persone

varMail._recipients = "liquid@interfree.it";
// varMail._recipients = ["mail1@domain.it", "mail2@domain.it", "etc_etc@domain.it"];

// soggetto della email
varMail._subject = "Blu-ip";
//host
varMail.hostess = "smtp.blu-ip.it";
// mittente
varMail._fromAddress = "blu-ip.it";
// colori della tabella HTML
varMail._leftcolor = "#ffcc33";
varMail._rightcolor = "#cccccc";
// bordo della tabella 0 = nessun bordo
varMail._tableborder = "1";
varMail._bordercolor = "#fefefe";
// variabili campi di testo inviati
varMail.Nome = nome;
varMail.Email = email;
varMail.Indirizzo = address;
varMail.Comune = city;
varMail.Telefono = phone;
varMail.Messaggio = message;
varMail.Contatto = contattoScelto;
varMail.Mailing_List = option;
// ordine dei campi visualizzato nella email
varMail._fieldOrder = ["Nome", "Email", "Indirizzo", "Comune", "Telefono", "Messaggio", "Contatto", "Mailing_List"];
varMail.onLoad = function() {
if (this.success) {
output = "Grazie, l'email è stata inviata";
nome = email=address=city=phone=message="";
} else {
output = "Impossibile inviare l'email riprovare più tardi";
}
};
varMail.sendAndLoad(aspURL, varMail);
}
inviaBtn.onRelease = function() {
if (nome.length<=0 || message.length<=0 || email.length<=0) {
output = "I campi contrassegnati con * sono obbligatori";
} else {
sendMail();
}
};

************************************************** ****

C O D I C E ASP:

<%

fromAddress = (Request.Form("_fromAddress"))
subject = Request.Form("_subject")
leftcolor = Request.Form("_leftcolor")
rightcolor = Request.Form("_rightcolor")
tableborder = Request.Form("_tableborder")
bordercolor = Request.Form("_bordercolor")

recipients = Split(Request.Form("_recipients"), ",")
recipients = Join(recipients, ",")

fieldOrder = Split(Request.Form("_fieldOrder"), ",")
for each name in fieldOrder
if str <> "" then
str = str & ","
end if
str = str & name
next
fieldOrder = Split(str, ",")

body = "<table align=center><tr><td><font face=""Verdana"" size=1>" & subject & "</td></tr></table></font><table border= " & tableborder & " bordercolor =" & bordercolor & " cellpadding=2 cellspacing=0 width='100%'>" & vbCrLf
for each name in fieldOrder
body = body _
& "<tr valign=top>" _
& "<td bgcolor= " & leftcolor & " align=right width='25%'><font face=""Verdana"" size=1>" _
& name _
& "</font></td>" _
& "<td bgcolor=" & rightcolor & " width='75%'><font face=""Verdana"" size=1>" _
& Request.Form(name) _
& "</font></td>" _
& "" & vbCrLf
next
body = body & vbCrLf & "</tr></table><table align=center><tr><td><font face=""Verdana"" size=1><u>powered by PeopleForFun</u></td></tr></table></font>" & vbCrLf


str = SendMail()

function FormFieldList()
dim str, i, name
for i = 1 to Request.Form.Count
for each name in Request.Form
if Left(name, 1) <> "_" and name <> "onLoad" and Request.Form(name) is Request.Form(i) then
str = str & name
exit for
end if
next
next
FormFieldList = Split(str, ",")

end function

function SendMail()
dim mailObj
set mailObj = Server.CreateObject("SMTPsvg.Mailer")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.RemoteHost = smtp.tol.it
mailObj.From = fromAddress
mailObj.To = recipients
mailObj.Subject = subject
mailObj.Body = body
mailObj.Send

end function

response.write ("success=1")
%>

[cybotron]

Grazie della risposta....ma non funziona