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
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
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 '************************* ************************** ************************ %>
j'ai l'impression que ma fonction recup ne fonctionne pas
Partager