Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2327 connectés 

  FORUM HardWare.fr
  Programmation
  ASP

  Redirection de formulaire via objet CDONTS

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Redirection de formulaire via objet CDONTS

n°1332749
pipistrell​e
Posté le 27-03-2006 à 11:15:09  profilanswer
 

Bonjour à tous !
je suis débutante, et j'ai un problème de redirection de formulaire qui se trouve sur une page HTML.
J'ai fait de nombreuses recherches sur le web et j'avais fini par trouver la solution de passer par PHP
en pointant mon formulaire vers une page "envoyer.php", mais erreur de débutant oblige j'avais oublié
de vérifier que mon hébergeur acceptait le php ce qui n'était pas le cas... Le support technique de celui-ci
me dit de passer par asp et l'objet CDONTS (sans plus de précision). J'ai refait pas mal de recherches
depuis, mais je suis un peu perdue, pouvez-vous m'aider ?
Est-ce que je dois (comme avec php) laisser mon formulaire sur ma page HTLM et le faire pointer sur une page
"envoyer.asp" ou bien est-ce que je dois placer directement mon formulaire sur une page asp ?
 
merci d'avance...

mood
Publicité
Posté le 27-03-2006 à 11:15:09  profilanswer
 

n°1332814
Flyman30
Posté le 27-03-2006 à 13:03:19  profilanswer
 

les 2 solution sont valable, fichier commun ou séparé !  ;)  
 
voila un exemple d'utilisation de CDONT  
 

Code :
  1. <%
  2.   'Création de l Objet server
  3.   Set objCDOMail = Server.CreateObject("CDONTS.NewMail" )
  4.    'Qui envoi le mail
  5.    .From = "toto@domaine.com"
  6.    'A qui le mail est envoye
  7.    .To = "monmail@mondomaine.com"
  8.    'le sujet
  9.    .Subject = "le sujet"
  10.    'le message
  11.    .Body = "message"
  12.    'Decide si le message est en texte ou en html (0=HTML 1=Text)
  13.     .BodyFormat = 1
  14.    'formt du mail (0=MIME 1=Text)
  15.    .MailFormat = 0
  16.    'Importance (0=basse, 1=Normal, 2=haute)
  17.    .Importance = 1
  18.    'envoi du mail
  19.    .Send
  20.   'Ferme l'objet serveur
  21.   Set objCDOMail = Nothing
  22. %>


Message édité par Flyman30 le 27-03-2006 à 13:06:32
n°1332996
pipistrell​e
Posté le 27-03-2006 à 17:19:17  profilanswer
 

Merci beaucoup ! Je crois que ça va pas mal m'aider...

n°1334432
pipistrell​e
Posté le 29-03-2006 à 11:08:39  profilanswer
 

:( Bonjour,
 
J'ai créé une page "envoyer.asp" vers laquelle mon formuliare html est dirrigé,
mais ça ne fonctionne pas : un message d'erreur apparaît (HTTP 500 - Erreur interne du serveur  
Internet Explorer )
Est-ce que quelq'un peut vérifier mes codes ?
 
Page html (désolée c'est un peu long) :

Code :
  1. <html>
  2. <head>
  3. <title>Untitled Document</title>
  4. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  5. <script language="JavaScript">
  6. <!--
  7. function MM_swapImgRestore() { //v3.0
  8.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  9. }
  10. function MM_preloadImages() { //v3.0
  11.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  12.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  13.     if (a[i].indexOf("#" )!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  14. }
  15. function MM_findObj(n, d) { //v4.0
  16.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?" ))>0&&parent.frames.length) {
  17.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  18.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  19.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  20.   if(!x && document.getElementById) x=document.getElementById(n); return x;
  21. }
  22. function MM_swapImage() { //v3.0
  23.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  24.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  25. }
  26. //-->
  27. </script>
  28. </head>
  29. <body bgcolor="#FFFFFF" text="#000000" onLoad="MM_preloadImages('images/annuler-over.gif')">
  30. <form action="envoyer.asp" method="post" name="devis">
  31.   <table cellspacing="5" cellpadding="0" width="73%">
  32.     <tr>
  33.       <td colspan="4">
  34.         <div align="center">
  35.           <p align="left"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><b>Cette
  36.             page est EXCLUSIVEMENT r&eacute;serv&eacute;e aux demandes concernant
  37.             les lots de la liste du mat&eacute;riel disponible en stock (toute
  38.             commande ne pourra &ecirc;tre inf&eacute;rieure &agrave; 2 tonnes
  39.             soit 1 fardeau).<br>
  40.             Pour toute autre demande sur d&eacute;lai avec un minimum de 10 tonnes
  41.             par poste, veuillez utiliser la rubrique contact.<br>
  42.             </b></font><b><font face="Arial, Helvetica, sans-serif" size="1" color="#FF0000"><br>
  43.             </font></b></p>
  44.         </div>
  45.       </td>
  46.     </tr>
  47.     <tr>
  48.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">NOM</font></b></td>
  49.       <td>
  50.         <input type="text" name="nom" size="30">
  51.       </td>
  52.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">APE</font></b></td>
  53.       <td>
  54.         <input type="text" name="ape" size="25">
  55.       </td>
  56.     </tr>
  57.     <tr>
  58.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">PRENOM </font></b></td>
  59.       <td>
  60.         <input type="text" name="prenom" size="30">
  61.       </td>
  62.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">SIRET</font></b></td>
  63.       <td>
  64.         <input type="text" name="siret" size="25">
  65.       </td>
  66.     </tr>
  67.     <tr>
  68.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">SOCIETE</font></b></td>
  69.       <td>
  70.         <input type="text" name="societe" size="30">
  71.       </td>
  72.       <td><b></b></td>
  73.       <td>&nbsp; </td>
  74.     </tr>
  75.     <tr>
  76.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">ADRESSE</font></b></td>
  77.       <td>
  78.         <input type="text" name="adresse" size="30">
  79.       </td>
  80.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">NUANCE</font></b></td>
  81.       <td>
  82.         <input type="text" name="nuance" size="25">
  83.       </td>
  84.     </tr>
  85.     <tr>
  86.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">CP</font></b></td>
  87.       <td>
  88.         <input type="text" name="cp" size="10">
  89.       </td>
  90.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">DIAMETRE</font></b></td>
  91.       <td>
  92.         <input type="text" name="diam" size="25">
  93.       </td>
  94.     </tr>
  95.     <tr>
  96.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">VILLE </font></b></td>
  97.       <td>
  98.         <input type="text" name="ville" size="30">
  99.       </td>
  100.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">QUANTITE</font></b></td>
  101.       <td>
  102.         <input type="text" name="quantite" size="25">
  103.       </td>
  104.     </tr>
  105.     <tr>
  106.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">TEL.</font></b></td>
  107.       <td>
  108.         <input type="text" name="tel" size="30">
  109.       </td>
  110.       <td><b></b></td>
  111.       <td>&nbsp; </td>
  112.     </tr>
  113.     <tr>
  114.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">FAX</font></b></td>
  115.       <td>
  116.         <input type="text" name="fax" size="30">
  117.       </td>
  118.       <td><b></b></td>
  119.       <td>&nbsp;</td>
  120.     </tr>
  121.     <tr>
  122.       <td><b><font face="Arial, Helvetica, sans-serif" size="1">MAIL</font></b></td>
  123.       <td>
  124.         <input type="text" name="mail" size="30">
  125.       </td>
  126.       <td>
  127.         <div align="left"><b>
  128.           <input name="Submit" type="submit" value="Envoyer">
  129.           </b></div>
  130.       </td>
  131.       <td> <a href="enstock.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/annuler-over.gif',1)"><img name="Image2" border="0" src="images/annuler.gif" width="73" height="28"></a></td>
  132.     </tr>
  133.   </table>
  134. </form>
  135. </body>
  136. </html>


 
Page asp :

Code :
  1. <%Language=VBScript%>
  2. <%
  3. nom=Request.Form("nom" )
  4. ape=Request.Form("ape" )
  5. siret=Request.Form("siret" )
  6. societe=Request.Form("societe" )
  7. adresse=Request.Form("adresse" )
  8. nuance=Request.Form("nuance" )
  9. cp=Request.Form("cp" )
  10. diametre=Request.Form("diametre" )
  11. ville=Request.Form("ville" )
  12. quantite=Request.Form("quantite" )
  13. tel=Request.Form("tel" )
  14. fax=Request.Form("fax" )
  15. mail=Request.Form("mail" )
  16. Set ObjetNewMail=CreateObjet("CDONTS.NewMail" )
  17. ObjetNewMail.From=Request.Form("mail" )
  18. ObjetNewMail.To="ardenacier@ardenacier.fr"
  19. ObjetNewMail.Subject="demande_de_prix"
  20. ObjetNewMail.Body=Request.Form("nom" )& Request.Form("ape" )& Request.Form("siret" )& Request.Form("societe" )& Request.Form("adresse" )& Request.Form("nuance" )& Request.Form("cp" )& Request.Form("diametre" )& Request.Form("ville" )& Request.Form("quantite" )& Request.Form("tel" )& Request.Form("fax" )& Request.Form("mail" )
  21. ObjetNewMail.BodyFormat=1
  22. ObjetNewMail.MailFormat=1
  23. ObjetNewMail.Send
  24. Set ObjetNewMail=Nothing
  25. %>


 
Merci d'avance...

n°1334881
Flyman30
Posté le 29-03-2006 à 19:42:50  profilanswer
 


<%Language=VBScript%>
<%
nom=Request.Form("nom" )
ape=Request.Form("ape" )
siret=Request.Form("siret" )
societe=Request.Form("societe" )
adresse=Request.Form("adresse" )
nuance=Request.Form("nuance" )
cp=Request.Form("cp" )
diametre=Request.Form("diametre" )
ville=Request.Form("ville" )
quantite=Request.Form("quantite" )
tel=Request.Form(&"tel" )
fax=Request.Form("fax" )
mail=Request.Form("mail" )
 
Ct = ct&"<html><body>"
Ct = ct& nom & "<br>"
Ct = ct& ape & "<br>
Ct = ct& siret & "<br>
Ct = ct& societe & "<br>
Ct = ct& adresse & "<br>
Ct = ct& nuance & "<br>
Ct = ct& cp & "<br>
Ct = ct& diametre & "<br>
Ct = ct& ville & "<br>
Ct = ct& quantite & "<br>
Ct = ct& tel & "<br>
Ct = ct& fax & "<br>
Ct = ct& mail & "<br>
CT = ct&"</body></html>"
 
 
Set ObjetNewMail=CreateObjet("CDONTS.NewMail" )
ObjetNewMail.From=Request.Form("mail" )
ObjetNewMail.To="ardenacier@ardenacier.fr"
ObjetNewMail.Subject="demande_de_prix"
ObjetNewMail.Body= Ct
blnHTML = True
ObjetNewMail.BodyFormat=0
ObjetNewMail.MailFormat=0
ObjetNewMail.Send
Set ObjetNewMail=Nothing
%>


Message édité par Flyman30 le 29-03-2006 à 19:44:24
n°1335403
pipistrell​e
Posté le 30-03-2006 à 11:28:51  profilanswer
 

Merci Flyman30 pour ton aide. Je viens de tester et j'ai toujours le même message d'erreur (HTTP 500 - Erreur interne du serveur  
Internet Explorer ). Sais-tu d'où le problème peux venir ? De l'hébergeur (Oléane)? De moi : (je vais peut-être poser une question bête, mais je débute) est-ce qu'il y a quelquechose de spécial à installer sur mon PC pour qu'asp fonctionne (je travaille sur XP E.F.) ?

n°1335505
Flyman30
Posté le 30-03-2006 à 13:44:47  profilanswer
 

pipistrelle a écrit :

Merci Flyman30 pour ton aide. Je viens de tester et j'ai toujours le même message d'erreur (HTTP 500 - Erreur interne du serveur  
Internet Explorer ). Sais-tu d'où le problème peux venir ? De l'hébergeur (Oléane)? De moi : (je vais peut-être poser une question bête, mais je débute) est-ce qu'il y a quelquechose de spécial à installer sur mon PC pour qu'asp fonctionne (je travaille sur XP E.F.) ?


 
Je suppose que tu as installé IIS ?  

n°1335521
Flyman30
Posté le 30-03-2006 à 14:09:56  profilanswer
 

Teste ça : (je n'ai pas Cdonts d'insatllé) si tu le peut utilise JMAIL ou ASPMAIL  ;)  
 
Appelle la page : envoyer.asp
 

<%Language=VBScript%>
<%
envoimail=Request.form("envoimail" )
if envoimail<>"" then
 
nom=Request.Form("nom" )
ape=Request.Form("ape" )
siret=Request.Form("siret" )
societe=Request.Form("societe" )
adresse=Request.Form("adresse" )
nuance=Request.Form("nuance" )
cp=Request.Form("cp" )
diametre=Request.Form("diametre" )
ville=Request.Form("ville" )
quantite=Request.Form("quantite" )
tel=Request.Form("tel" )
fax=Request.Form("fax" )
mail=Request.Form("mail" )
 
Ct = ct&"<html><body>"
Ct = ct& nom & "<br>"
Ct = ct& ape & "<br>"
Ct = ct& siret & "<br>"
Ct = ct& societe & "<br>"
Ct = ct& adresse & "<br>"
Ct = ct& nuance & "<br>"
Ct = ct& cp & "<br>"
Ct = ct& diametre & "<br>"
Ct = ct& ville & "<br>"
Ct = ct& quantite & "<br>"
Ct = ct& tel & "<br>"
Ct = ct& fax & "<br>"
Ct = ct& mail & "<br>"
CT = ct&"</body></html>"
 
 
Set ObjetNewMail=CreateObjet("CDONTS.NewMail" )
ObjetNewMail.From=Request.Form("mail" )
ObjetNewMail.To="ardenacier@ardenacier.fr"
ObjetNewMail.Subject="demande_de_prix"
ObjetNewMail.Body= Ct
blnHTML = True
ObjetNewMail.BodyFormat=0
ObjetNewMail.MailFormat=0
ObjetNewMail.Send
Set ObjetNewMail=Nothing
 
end if  
%>
 
      <html>
      <head>
      <title>Untitled Document</title>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <script language="JavaScript">
      <!--
      function MM_swapImgRestore() { //v3.0
       var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
      }
      function MM_preloadImages() { //v3.0
       var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
         var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
         if (a[i].indexOf("#" )!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
      }
 
      function MM_findObj(n, d) { //v4.0
       var p,i,x;  if(!d) d=document; if((p=n.indexOf("?" ))>0&&parent.frames.length) {
         d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
       if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
       for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
       if(!x && document.getElementById) x=document.getElementById(n); return x;
      }
 
      function MM_swapImage() { //v3.0
       var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
        if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
      }
      //-->
      </script>
      </head>
      <body bgcolor="#FFFFFF" text="#000000" onLoad="MM_preloadImages('images/annuler-over.gif')">
      <form action="envoyer.asp" method="post" name="devis">
      <input type="hidden" name="envoimail" value="ok" id="hidden1" />
       <table cellspacing="5" cellpadding="0" width="73%">
         <tr>
           <td colspan="4">
             <div align="center">
               <p align="left"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><b>Cette
                 page est EXCLUSIVEMENT r&eacute;serv&eacute;e aux demandes concernant
                 les lots de la liste du mat&eacute;riel disponible en stock (toute
                 commande ne pourra &ecirc;tre inf&eacute;rieure &agrave; 2 tonnes
                 soit 1 fardeau).<br>
                 Pour toute autre demande sur d&eacute;lai avec un minimum de 10 tonnes
                 par poste, veuillez utiliser la rubrique contact.<br>
                 </b></font><b><font face="Arial, Helvetica, sans-serif" size="1" color="#FF0000"><br>
                 </font></b></p>
             </div>
           </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">NOM</font></b></td>
           <td>
             <input type="text" name="nom" size="30">
           </td>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">APE</font></b></td>
           <td>
             <input type="text" name="ape" size="25">
           </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">PRENOM </font></b></td>
           <td>
             <input type="text" name="prenom" size="30">
           </td>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">SIRET</font></b></td>
           <td>
             <input type="text" name="siret" size="25">
           </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">SOCIETE</font></b></td>
           <td>
             <input type="text" name="societe" size="30">
           </td>
           <td><b></b></td>
           <td>&nbsp; </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">ADRESSE</font></b></td>
           <td>
             <input type="text" name="adresse" size="30">
      </td>
          <td><b><font face="Arial, Helvetica, sans-serif" size="1">NUANCE</font></b></td>
           <td>
             <input type="text" name="nuance" size="25">
           </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">CP</font></b></td>
           <td>
             <input type="text" name="cp" size="10">
           </td>
            <td><b><font face="Arial, Helvetica, sans-serif" size="1">DIAMETRE</font></b></td>
           <td>
             <input type="text" name="diam" size="25">
           </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">VILLE </font></b></td>
           <td>
             <input type="text" name="ville" size="30">
           </td>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">QUANTITE</font></b></td>
           <td>
             <input type="text" name="quantite" size="25">
           </td>
         </tr>
          <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">TEL.</font></b></td>
           <td>
             <input type="text" name="tel" size="30">
           </td>
           <td><b></b></td>
           <td>&nbsp; </td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">FAX</font></b></td>
           <td>  <input type="text" name="fax" size="30">
           </td>
           <td><b></b></td>
           <td>&nbsp;</td>
         </tr>
         <tr>
           <td><b><font face="Arial, Helvetica, sans-serif" size="1">MAIL</font></b></td>
           <td>
             <input type="text" name="mail" size="30">
           </td>
           <td>
             <div align="left"><b><input name="Submit" type="submit" value="Envoyer"></b></div>
           </td>
           <td> <a href="enstock.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/annuler-over.gif',1)"><img name="Image2" border="0" src="images/annuler.gif" width="73" height="28"></a></td>
         </tr>
       </table>
       </form>
      </body>
      </html>


Message édité par Flyman30 le 30-03-2006 à 14:10:51
n°1335692
pipistrell​e
Posté le 30-03-2006 à 17:16:11  profilanswer
 

Merci encore... Pour jmail et aspmail je ne sais pas si c'est accepté.
J'ai testé ton script : je n'est plus de message d'erreur mais le message n'est pas envoyé. je pense qu'il y a une "M...e" avec Oléane, alors je leur ai envoyé une demande d'aide technique, j'attends de leurs nouvelles.

n°1338799
pipistrell​e
Posté le 04-04-2006 à 15:08:35  profilanswer
 

:hello: Bonjour,
En fait ton script fonctionne nickel, il y avait juste quelques petites erreurs (style des guillemets...) et j'avais merdé
dans l'adresse expediteur. Voilà le script corrigé, si ça peut aider quelqu'un d'autre...
 

Code :
  1. <%Language=VBScript%>
  2. <%
  3. nom=Request.Form("nom" )
  4. prenom=Request.Form("prenom" )
  5. societe=Request.Form("societe" )
  6. adresse=Request.Form("adresse" )
  7. cp=Request.Form("cp" )
  8. ville=Request.Form("ville" )
  9. tel=Request.Form("tel" )
  10. fax=Request.Form("fax" )
  11. mail=Request.Form("mail" )
  12. ape=Request.Form("ape" )
  13. siret=Request.Form("siret" )
  14. nuance=Request.Form("nuance" )
  15. diam=Request.Form("diam" )
  16. quantite=Request.Form("quantite" )
  17. Ct = ct&"<html><body>"
  18. Ct = ct& nom & "<br>"
  19. Ct = ct& prenom & "<br> "
  20. Ct = ct& societe & "<br> "
  21. Ct = ct& adresse & "<br> "
  22. Ct = ct& cp & "<br>"
  23. Ct = ct& ville & "<br>"
  24. Ct = ct& tel & "<br> "
  25. Ct = ct& fax & "<br> "
  26. Ct = ct& mail & "<br> "
  27. Ct = ct& ape & "<br>"
  28. Ct = ct& siret & "<br>"
  29. Ct = ct& nuance & "<br> "
  30. Ct = ct& diam & "<br> "
  31. Ct = ct& quantite & "<br> "
  32. CT = ct&"</body></html>"
  33. Dim MAILCDO
  34. Set MAILCDO = Server.CreateObject("CDONTS.NewMail" )
  35. MAILCDO.To = "destinataire@destinataire.fr"
  36. MAILCDO.From = "expediteur@expediteur.fr"
  37. MAILCDO.Subject = " Formulaire du site Web"
  38. MAILCDO.Body = CT
  39. MAILCDO.Importance = 1
  40. MAILCDO.BodyFormat=0
  41. MAILCDO.MailFormat=0
  42. MAILCDO.Send
  43. set MAILCDO=Nothing
  44. %>
  45. <% response.redirect "url" %>


 
Sinon comme je ne veux pas mourrir idiote et ne pas recopier bêtement sans comprendre ce que je fais, peux-tu
m'expliquer à quoi correspondent les "ct" ? Est-ce que c'est pour la bonne mise en forme (retour à la ligne etc...)
dans le mail final ?
Peux-tu également, selon ta technique m'expliquer comment on peut récupérer les données d'un "textarea" ?
Et si ce n'est pas trop abuser...
Je récupère les données comme ça :
réponse
réponse
réponse...
Je voudrais récupérer comme ça :
question = réponse
Est-ce que c'est possible ?
Merci d'avance !

mood
Publicité
Posté le 04-04-2006 à 15:08:35  profilanswer
 

n°1339400
Flyman30
Posté le 05-04-2006 à 09:18:07  profilanswer
 

Pour la question sur le ct c'est juste une façon de récupérer les données sous forme d'un texte html
 
voila un exemple de ce que j'emploi pour des demandes de renseignement (il y a un textarea) là c'est avec ASPEmail mais c'est la même chose avec n'importe quel composant ASP pour envoyer un mail :


<!DOCTYPE html PUBLIC "-//W3C//Dtd XHTML 1.0 strict//EN" "http://www.w3.org/tr/xhtml1/Dtd/xhtml1-strict.dtd">
 
<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
envoimail=Request.form("envoimail" )
if envoimail<>"" then
  Nom=Request.form("nom" )
  Prenom=Request.form("prenom" )
  Imail=Request.form("eMail" )
  Objet=Request.form("Objet" )
 
' Body in HTML format
strHTML = "<b>Nom: </b>" & Request.form("nom" ) & "  "  & Request.form("prenom" ) & "<br />" & _
"<b>Email: </b>" & Request.form("eMail" ) & "<br />" & _
"<b>Objet: </b>" & Request.form("Objet" ) & "<br />" & _
"<b>Demande: </b><br /><fieldset>" & Request.form("proposition" ) & "</fieldset>"
 
 
'******* Envoi du Mail ***********
 
Set Mail = Server.CreateObject("Persits.MailSender" )
REM -- Remplacer le smtp par un smtp valide !  
Mail.Host = "smtp.wanadoo.fr"
'*** Adresse SMTP du serveur ne doit pas changer
 
Mail.From = Imail
'*** Mail.From correspond à l'e-mail de l'emmetteur
 
Mail.FromName = Nom
'*** Nom de l'emmetteur
 
Mail.AddAddress "webmaster@toto.com"
'*** Adresse E-mail ou sera envoyé le formulaire A REMPLACER PAR VOtrE E-MAIL
 
Mail.Priority = "3"
'*** Niveau de priorité du mail : 1(haute), 3(normal) & 5(basse)
 
Mail.Subject = Objet
'*** sujet mail
 
Mail.IsHTML = true
Mail.Body = "<html><body>" & strHTML & "</body></html>"
'*** variable commentaire est récupéré du formulaire
 
On Error Resume Next
Mail.Send
 if Err <> 0 then
emailverif=1
 End If
response.redirect ("index.asp" )
 
'******* FIN Envoi du Mail ***********
end if  
 
%>
<html>
 <head>
  <title>Contacter le webmaster</title>
  <!--#include file="meta.inc"-->
  <script type="text/javascript" src="formValidation.js"></script>
 </head>
 <body>
  <!--#include file = "Haut.inc"-->
  <div id="contenu">
   <div id="gauche">
    <!--#include file="menu-accueil.inc"-->
   </div>
   <div id="principal">
   <h1>Contacter le webmaster</h1>
   <p>&nbsp;</p>
<p>&nbsp;</p>
 <form id="demande" method="post" action="Contactwebmaster.asp" onsubmit="return validateForm(this)">
 <p><input type="hidden" name="envoimail" value="ok" id="hidden1" /></p>  
  <div id="cadreform">
   <fieldset id="coordonnees">
    <legend>Vos coordonnées personnelles</legend>
    <br />
    <p>
     <label for="nom" title="Veuillez saisir votre nom en lettres majuscules" class="oblig">* Nom :</label>
     <input type="text" name="nom" id="nom"  value="<%=nom%>" title="Veuillez saisir votre nom en lettres majuscules" tabindex="1" onfocus="this.className='focus';" onblur="this.className='normal';" onchange="javascript:this.value=this.value.toUpperCase();" />
     <span class="legend">ex : 'MARTIN'</span>
    </p>
    <p>
     <label for="prenom" title="Veuillez saisir votre prénom" class="oblig">* Prénom :</label>
     <input type="text" name="prenom" id="prenom" value="<%=prenom%>"  title="Veuillez saisir votre prénom" tabindex="2" onfocus="this.className='focus';" onblur="this.className='normal';" />
    </p>
    <p>
     <label for="eMail" title="Veuillez saisir votre adresse email" class="oblig">* e-Mail :</label>
     <input type="text" name="eMail" id="eMail" value="<%=eMail%>"  title="Veuillez saisir votre adresse e-mail" tabindex="3" onfocus="this.className='focus';" onblur="this.className='normal';" />
     <a href="#" class="aide" title="Votre adresse e-mail ne sera pas communiquée à des tiers" tabindex="0"><img src="Images/icon_help.gif" alt="Votre adresse e-mail ne sera pas utilisée à des fins commerciales" /></a>
    </p>
    <p>
     <label for="Objet" title="Veuillez saisir l'objet de votre deamande" class="oblig">* Objet :</label>
     <input type="text" name="Objet" id="Objet" value="<%=Objet%>"  title="Veuillez saisir l'objet de votre demande" tabindex="4" onfocus="this.className='focus';" onblur="this.className='normal';" />
    </p>
<br /><em>* Champs obligatoires</em>
   </fieldset>
   <br />
   <fieldset id="question">
       <legend>Votre demande</legend>
    <br />
   <p class="centre">
   <textarea name="proposition" cols="60" rows="15" id="proposition" title="veuiilez saisir votre demande" tabindex="5" onfocus="this.className='focus';" onblur="this.className='normal';"><%=proposition%></textarea></p>
   <input type="submit" name="valid" id="valid" value="Envoyez" title="Cliquez sur ce bouton pour nous envoyer votre demande" tabindex="6" />  
   <br />
   </fieldset>
 
   <br />
   
  </div>
 
 </form>
  </div>
</body>
</html>


 
et la fonction de validation :
 

// Boucle de validation
function validateForm(form) {
 if (isNotEmpty(form.nom)) {
  if (isNotEmpty(form.prenom)) {
   if (isNotEmpty(form.eMail)) {
    if (isEMailAddr(form.eMail)) {
     if (isNotEmpty(form.Objet)) {
      if (isNotEmpty(form.proposition)) {    
       return true;
       
                 }    
                       }
                                 }
           }
                               }
                          }
 return false;
                            }
 
// Vérifie si un champ a bien été renseigné
function isNotEmpty(elem) {
 var str = elem.value;
    var re = /.+/;
    if(!str.match(re)) {
        alert("Veuillez renseigner les champs obligatoires." );
        setTimeout("focusElement('" + elem.form.name + "', '" + elem.name + "')", 0);
        return false;
    } else {
        return true;
    }
}
 
// Vérifie si l'adresse e-mail est valide
function isEMailAddr(elem) {
 var str = elem.value;
    var re = /^[\w-]+(\.[\w-]+)*@([\w-]+\.)+[a-zA-Z]{2,7}$/;
    if (!str.match(re)) {
        alert("Veuillez vérifier le format de votre adresse e-mail." );
        setTimeout("focusElement('" + elem.form.name + "', '" + elem.name + "')", 0);
        return false;
    } else {
        return true;
    }
}
 
// Positionne le curseur dans le premier champs
function focusForm() {
  document.getElementById('nom').focus();
}
window.onload = focusForm;
 
// Positionne le curseur dans un champ donné
function focusElement(formName, elemName) {
    var elem = document.forms[formName].elements[elemName];
    elem.focus();
    elem.select();
}


 

n°1339420
Flyman30
Posté le 05-04-2006 à 09:40:53  profilanswer
 

Sinon pour la question sur la mise en forme de la récupération des champs comme la variable CT est du html ça devient très simple :
 

Ct = ct&"<html><body>"
Ct = ct&"Nom : " & nom & "<br>"
Ct = ct&"Prénom : " & prenom & "<br> "
Ct = ct&"Société : " & societe & "<br> "
Ct = ct&"Adresse : " & adresse & "<br> "
Ct = ct&"Code-postal : " & cp & "<br>"
Ct = ct&"Ville : " &ville & "<br>"
Ct = ct&"Téléphone : " & tel & "<br> "
Ct = ct&"Fax : " & fax & "<br> "
Ct = ct&"Mail : & mail & "<br> "
Ct = ct&"Code APE : " & ape & "<br>"
Ct = ct&"Siret : " & siret & "<br>"
Ct = ct&"Nuance : " & nuance & "<br> "
Ct = ct&"Diamètre : " & diam & "<br> "
Ct = ct&"Quantité : " & quantite & "<br> "
CT = ct&"</body></html>"


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ASP

  Redirection de formulaire via objet CDONTS

 

Sujets relatifs
Un bon bouquin PHP OBJETProbleme pour Modifier mon formulaire
récup méthodes/propriétés objet javascriptQui peut me faire une page de redirection?
ajouter un label sur un formulaire par code?Prendre la main depuis un formulaire Access?
Design formulaire /// cssFormulaire Non Modal
Perte de données de session dans formulaireProtection des formulaire contre le spam
Plus de sujets relatifs à : Redirection de formulaire via objet CDONTS


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR