Salut
j'essaye de faire un fomulaire me permettant d'envoyer un mail
voila mon code dans mon fichier fla


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
// Fonction pour envoyer le mail 
 
function envoyer_mail() {
 
 
 
    var envoi = new LoadVars(); // création de l'objet "envoi" qui permet d'envoyer les variables 
 
    var recup = new LoadVars(); // création de l'objet cible "recup" qui reçoit les variables téléchargées.
 
    // on rempli l'objet "envoi" avec les champs du formulaire.
 
    envoi.nom = t_nom.text; 
 
    envoi.prenom = t_prenom.text;
 
    envoi.mail = t_mail.text;
 
    envoi.message = t_message.text;
 
    trace(envoi);
 
    recup.onLoad = function(success) { 
 
        if (success) { // si l’opération de chargement s’est déroulée avec succès
 
            if (id_resultat == 0 ) {
 
                resultat.text== " problèmes!"
 
            }
 
            else {
 
            resultat.text = id_resultat; 
 
            }
 
        } else {
 
            resultat.text = "Problèmes !"; // problème côté serveur l'opération n'a pas pu se faire.
 
        trace("toto");
 
        }
 
 
 
    };
 
    envoi.sendAndLoad("contact.asp",recup,"POST"); 
 
};

dc je crée de objet
1 pr envoyer des des données
1 autre pour récupérer les données du fichier asp

je fais un test dans un fonction sucess afin de voirs sir le téléchargemetn c bien déroulé

dans mon fichier ASP je fais ca

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
 
<%
 
'************************* ************************** ************************ 
 
' Parse les var. pour Flash afin de lui envoyer dans le bon format 
 
function Parse(variable,valeur) 
 
response.write (variable & "=" & valeur)
 
end function 
 
 
 
'************************* ************************** ************************ 
 
nom = request.form("nom")
 
prenom = request.form("prenom")
 
mail= Request.Form("mail") 
 
message = Request.Form("message")
 
 '*************************************************
*****************************
 
'traite le fichier
 
message = Server.URLEncode("message")
 
 '*************************************************
****************************
 
' l'utilisateur si OK on envoie le mail 
 
If (message <> "" and IsValidEmail(mail) = true) then 
 
    Dim MyMail 
 
    Set MyMail = Server.CreateObject("CDONTS.NewMail") 
 
    MyMail.From = mail
 
    MyMail.To = "conctact@independza.com"
 
    MyMail.Subject = "Demandes de reinsegnements"
 
    MyMail.Body = nom&" "&prenom&"<br>"&Message 
 
    MyMail.Send 
 
    Set MyMail = Nothing 
 
    Parse "id_resultat","1"
 
else 
 
    Parse "id_resultat","0"
 
end if 
 
'************************* ************************** ************************
 
%>
Ca ne marche pas je n'ai rien pourtant j'ai bien fais un champs "resultat" me perttant de savoir si je télécharge bien les données
j'ai l'impression que ma fonction recup ne fonctionne pas