Salve,
ho fatto un form in Flash, al tasto invia ho associato questo codice copiato dal forum :

on (press)
{
email1 = Mail.lastIndexOf('@');
if (email1>=2){
m1 = true;
} else {
m1 = false;
}
email2 = Mail.lastIndexOf('.');
if ((email2-email1)>=2){
m2 = true;
} else {
m2 = false;
}
email3 = Mail.substr(email2, Mail.length);
if (email3.length>=3){
m3 = true;
} else {
m3 = false;
}

if(Nome<>""&Cognome<>""&Citta<>""&m1&m2&m3){
myLoadVars = new LoadVars();
myLoadVars.Nome = Nome;
myLoadVars.Cognome = Cognome;
myLoadVars.Citta = Citta;
myLoadVars.Email = Mail
myLoadVars.sendAndLoad("invia.asp",myLoadVars,"POS T");
myLoadVars.onLoad = function(success){
if(success){
out1 = myLoadVars.out;
Nome="";
Cognome="";
Mail="";
Citta="";
out="dati inviati";
ok=true;
gotoAndStop("inviato");
}


}
}
if (Mail==""){
out = "Inserisci una mail valida";
}

if(Citta==""){
out = "Inserisci una città";
}
if(!m1|!m2|!m3){
out = "Inserisci un indirizzo mail valido";
}
if(Cognome==""){
out = "Inserisci il tuo Cognome";
}
if(Nome==""){
out = "Inserisci il tuo Nome";
}
}




Mentre nel file invia.asp ho scritto questo:

<%

nome=Request.Form("Nome")
cognome=Request.Form("Cognome")
citta=Request.Form("Citta")
provincia=Request.Form("Provincia")
nazione=Request.Form("Nazione")
tele=Request.Form("telefono")
fax=Request.Form("Fax")
cellulare=Request.Form("Cellulare")
mail=Request.Form("Mail")
mail=replace(mail,"'","''")
arrivo=Request.Form("Arrivo")
partenza=Request.Form("Partenza")
adulti=Request.Form("Adulti")
bambini=Request.Form("Bambini")
singole=Request.Form("Singole")
doppie=Request.Form("Doppie")
triple=Request.Form("Triple")
messaggio ="Questo messaggio è stato scritto da: "&Vbcrlf&"Nome: "&nome&Vbcrlf&"Cognome: "&cognome&Vbcrlf&"Città: "&citta&Vbcrlf&"Prov: "&provincia&Vbcrlf&"Nazione: "&nazione&Vbcrlf&""&Vbcrlf&"Telefono: "&tele&Vbcrlf&"Fax: "&fax&Vbcrlf&"Cellulare: "&cellulare&Vbcrlf&"Indirizzo e-mail: "&mail&Vbcrlf&""&Vbcrlf&"Richiesta informazioni per il periodo dal "&arrivo&" al "&partenza&Vbcrlf&"N° adulti: "&adulti&Vbcrlf&"N° bambini: "&bambini&Vbcrlf&"N° camere singole: "&singole&Vbcrlf&"N° camere doppie: "&doppie&Vbcrlf&"N° camere triple: "&triple&Vbcrlf&""

dest="miamail@miamail.it"

response.Write(messaggio)

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With iMsg
Set .Configuration = iConf
.To = dest
.From = "Sito Hotel"
.Sender ="" & mail & ""
.Subject = "Informazioni"
.TextBody = messaggio
.Send
End With
%>


A parte il codice in più scritto, che non serviva, dove può essere l' errore ? Non mi arriva nessuna mail .......





Thanks