Perché questo FORM no funziona ?

[lucker]

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

[crescenzo]

dove hai trovato il codice del form molto probabilmente c'èra anche la pagina asp
cmq da flash invii 4 var e nella pagina asp vuoiprenderti un sacco di var che nn ci sono poi x la pagina asp
volendola associare il cod AS questa funge

<%

on error resume next

if err.number>0 then
                    response.write "out=Si è verificato un errore nell'invio dei dati tramite posta elettronica.&"
                else
                    response.write "out=Richiesta inoltrata correttamente.&"
                end if


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

    
    
invioA =  "info@mail.it"

    '* voce da modificare con un indirizzo email che funga da mittente: 
            
invioDa =  "info@mail.it"



nomeDominio                 = Request.ServerVariables("HTTP_HOST")
indirizzoIp                    = Request.ServerVariables("REMOTE_ADDR") 
modulo                        = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo        = Request.ServerVariables("HTTP_USER_AGENT")

    '*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"

<font face=verdana size=2>[b]Nome :[/b] " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Cognome :[/b] " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Telefono :[/b] " & Request.Form("telefono") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]E-mail : [/b]" & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Indirizzo :[/b] " & Request.Form("indirizzo") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]Città : [/b]" & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
[b]Richiesta :[/b] " & Request.Form("testo") & "</font>
"


n =Request.Form("nome")
r =Request.Form("cognome")
    '* creo gli oggetti cdosys sul server e li gestisco
    
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Richiesta Informazioni dal sito " & nomeDominio
   .HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 

cambia i nomi dei campi e usa questa che è proprio quella che uso associata a quel codice

[lucker]

Giusto, la tua pagina asp l'ho vista ma prima volevo usare la mia anche per capire l'inghippo. E' vero che in flash invio solo 4 var, ma sono previste tutte quelle nel file asp, e ho pensato che se il campo era vuoto non facesse importanza.
Quindi tu mi dici che il fatto che l' asp creando variabili che contengono un request.form ("") non passato invece di aggiungere un valore vuoto al messaggio blocca lo script e non invia la mail ?
Cioé se io faccio il request.form("") solo delle 4 variabili poi dovrebbe andare ?

Prima mi piacerebbe trovare l' errore, poi eventualmente copio anche la tua pagina asp.

[lucker]

Un altra cosa ....

Flds(cdoSMTPServer) = "smtp.aruba.it"

questa riga si può omettere ? Perché il server non è aruba ........

[crescenzo]

Originariamente inviato da lucker
Un altra cosa ....

Flds(cdoSMTPServer) = "smtp.aruba.it"

questa riga si può omettere ? Perché il server non è aruba ........

usi il tuo smtp ovviamente

e poi se la var sono vuote nn penso che si blocchi lo script semplicemente dovresti ricevere degli undefined


quindi cmq ti dovrebbe arrivare la mail se hai fatto tutto giusto

[lucker]

Ok, ora mi funziona utilizzando il tuo file asp.
Mi rimane comunque il cruccio di non aver capito come mai con il mio file asp non funzionava................ E pensare che l'ho utilizzo su un altro sito e funziona .....