Salve ragazzi.
purtroppo dopo avermi letto quasi tutti i post del forum ancora non riesco a risolvere i problemi con il formmail in asp
Se magari qualcuno potesse postarmi un link dove scaricare qualcosa di già fatto sarebbe cosa molta gradita visto che sto bloccato da due giorni.
in ogni caso posto ciò che ho fatto(scopiazzato) fin'ora:


Il form si trova all'interno di un moovieclip

sul primo frame del m.c. c'è il seguente codice:

out = "" ;
out1 = "" ;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";



questo è il codice attribuito al pulsante di invio:

on (release) {
//------controllo dell'e-mail---------\\
email1 = inputemail.lastIndexOf('@');
if (email1>=2) {
m1 = true;
} else {
m1 = false;
}
email2 = inputemail.lastIndexOf('.');
if ((email2-email1)>=2) {
m2 = true;
} else {
m2 = false;
}
email3 = inputemail.substr(email2, inputemail.length);
if (email3.length>=3) {
m3 = true;
} else {
m3 = false;
}


if (inputnome <> "" & inputcogn <> "" & inputcitta <> "" & inputtesto <> "" & m1 & m2 & m3 ) {
myLoadVars = new LoadVars();
myLoadVars.nome = inputnome;
myLoadVars.cognome = inputcogn;
myLoadVars.citta = inputcitta;
myLoadVars.testo = inputtesto;
myLoadVars.email = inputemail;
trace(myLoadVars.cognome);
myLoadVars.sendAndLoad("contatti.asp", myLoadVars, "POST");
myLoadVars.onLoad = function(success){
if(success){
out1 = myLoadVars.out;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";
out="";

tempo = setInterval(function () {

out1="";
clearInterval(tempo)},3000);


} else {
out1 = myLoadVars.out;
}
}
}
if (inputtesto==""){
out = "* Inserire una richiesta valida" ;
}
if (inputcitta==""){
out = "* Inserire una Città" ;
}
if(!m1|!m2|!m3){
out="* Inserire una mail valida";


}
if (inputcogn==""){
out = "* Inserire un Cognome valido" ;
}
if (inputnome==""){
out = "* Inserire un Nome valido" ;
}

}



questo è il codice di contatti.asp:

<%

EmailMittente=Request("mail")
OggettoMessaggio=Request("oggetto")
BodyMessaggio=Request("messaggio")




'Dim miaMail
'Set miaMail = Server.CreateObject("CDONTS.NewMail")
'miaMail.From = EmailMittente
'miaMail.To = "pinco.pallino1978@libero.it"
'miaMail.Subject = OggettoMessaggio
' miaMail.BodyFormat = 0
' miaMail.MailFormat = 0
'miaMail.Importance = 2
'miaMail.Body = BodyMessaggio
'miaMail.Send
'Set miaMail = Nothing

Dim miaMail
Set miaMail = Server.CreateObject("CDO.Message")
miaMail.From = EmailMittente
miaMail.To = "fabio@polbot.com"
miaMail.Subject = OggettoMessaggio
miaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
miaMail.Fields.Update()
miaMail.TextBody = BodyMessaggio
miaMail.Send()
Set miaMail = Nothing
Response.write ("testoConferma=Messaggio Inviato")



%>


il problema è che il pulsante invio non produce alcun effetto (come se non fosse attivo)