Bonjour,
Je souhaite récupérer les données de mes formulaires à l'aide d'un
composant
formmail.asp fonctionnant avec CDONTS.
Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas en
vrac mais triés par ordre alphabétique ? (je ne connais rien à la
programmation mais j'arrive à me retrouver à l'intérieur de formmail.asp)
Merci.
--
arverne
Bonjour,
Je souhaite récupérer les données de mes formulaires à l'aide d'un
composant
formmail.asp fonctionnant avec CDONTS.
Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas en
vrac mais triés par ordre alphabétique ? (je ne connais rien à la
programmation mais j'arrive à me retrouver à l'intérieur de formmail.asp)
Merci.
--
arverne
Bonjour,
Je souhaite récupérer les données de mes formulaires à l'aide d'un
composant
formmail.asp fonctionnant avec CDONTS.
Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas en
vrac mais triés par ordre alphabétique ? (je ne connais rien à la
programmation mais j'arrive à me retrouver à l'intérieur de formmail.asp)
Merci.
--
arverne
Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" wrote in message
news:cg83qo$i2a$
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
> Merci.
> --
> arverne
>
>
Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" <arverne-anti-spam@nat.fr> wrote in message
news:cg83qo$i2a$1@aphrodite.grec.isp.9tel.net...
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
> Merci.
> --
> arverne
>
>
Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" wrote in message
news:cg83qo$i2a$
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
> Merci.
> --
> arverne
>
>
Voilà, voilà
__________________________________________________________
<%
'-----------------------------------
'---- FORMMAIL pour ASP
'---- Utilise le composant CDONTS
'---- Erreur1.htm : l'email est incorrecte
'---- Erreur2.htm : un champ obligatoire n'est pas rempli
'---- Merci.htm : Page de confirmation
'-----------------------------------
Option Explicit
Dim Corps '----- Corps du message
Dim Objetstr '----- Objet du message
Dim Item
Dim Erreur, StrErreur
Dim Str
Dim Err
Dim objMail
Dim EnTeteStr '----- EnTete du message
Dim PiedPageStr '----- Pied de Page du message
Dim AdresseIPstr '----- Adresse IP de l'emetteur
Dim AdresseURLstr '----- URL d'ou le script est appelé
Dim LoginStr '----- Login du User
'----------------
'Initialisation des variables
'----------------
Erreur = 0
StrErreur = ""
Corps = "<font face='verdana' size=2>"
'----------------
'On récupère les paramètres postés
'----------------
On error resume next
For each item in request.form
Str = trim(request.form(item))
'----------------
'Teste si la première lettre est une majuscule : champ obligatoire ?
'----------------
if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
'---- Teste si le champ est bien rempli
if Str="" then
Erreur=2
Exit For
end if
end if
'----------------
'Teste si c'est un champ email
'----------------
if instr(item,"email")<>0 then
'---- Teste l'adresse Email
if instr(Str,"@")=0 or instr(Str,".")=0 then
Erreur=1
Exit for
end if
end if
if item<>"Destinataire" then
corps = corps & item & " = " & Str & "<BR>"
end if
Str=""
next
'----------------
'Gestion des erreurs
'----------------
Select case Erreur
Case 1: '---- Erreur d'adresse email
response.redirect "Erreur1.htm"
Case 2: '---- Erreur champ obligatoire incorrecte
response.redirect "Erreur2.htm"
Case 0 '---- Aucune Erreur : Envoi du Mail
'------------
'Envois du mail avec CDONTS au client
'----------------
If corps<>"" then
'----------------
'Récupération du champ l'objet du message si il existe
'----------------
if len(Request.Form("Objet"))>0 then
ObjetStr = Request.Form("Objet")
else
ObjetStr = "Message de test"
end if
'----------------
'Identification du message
'----------------
AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
LoginStr = Request.ServerVariables("REMOTE_USER")
'----------------
'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
'-----------------
Set objMail= Server.CreateObject("CDONTS.Newmail")
objMail.mailFormat = 0
objMail.bodyFormat = 0
'----------------
'Création EnTete et Pied de Page
'-----------------
EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
"</a></center><hr>"
PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
AdresseIPstr + " " + LoginStr
objMail.To = Request.form("Destinataire")
objMail.Subject = ObjetStr
objMail.From = ""
objMail.Body = EnTeteStr + corps + PiedPageStr
objMail.Send
Set objMail = Nothing
end if
'----------------
'Fin d'envoi avec CDONTS
'----------------
'----------------
'Redirection vers la page Merci.htm
'----------------
response.redirect "merci.htm"
End Select
if Err.number<>0 then
response.write("Une erreur s'est produite")
response.write("Erreur n°"&Err.Number & ":" & Err.description)
response.End
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
____________________________________________________________________
"Loic boileau [MS]" a écrit dans le
message
de news:Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" wrote in message
news:cg83qo$i2a$
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
en> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
formmail.asp)> Merci.
> --
> arverne
>
>
Voilà, voilà
__________________________________________________________
<%
'-----------------------------------
'---- FORMMAIL pour ASP
'---- Utilise le composant CDONTS
'---- Erreur1.htm : l'email est incorrecte
'---- Erreur2.htm : un champ obligatoire n'est pas rempli
'---- Merci.htm : Page de confirmation
'-----------------------------------
Option Explicit
Dim Corps '----- Corps du message
Dim Objetstr '----- Objet du message
Dim Item
Dim Erreur, StrErreur
Dim Str
Dim Err
Dim objMail
Dim EnTeteStr '----- EnTete du message
Dim PiedPageStr '----- Pied de Page du message
Dim AdresseIPstr '----- Adresse IP de l'emetteur
Dim AdresseURLstr '----- URL d'ou le script est appelé
Dim LoginStr '----- Login du User
'----------------
'Initialisation des variables
'----------------
Erreur = 0
StrErreur = ""
Corps = "<font face='verdana' size=2>"
'----------------
'On récupère les paramètres postés
'----------------
On error resume next
For each item in request.form
Str = trim(request.form(item))
'----------------
'Teste si la première lettre est une majuscule : champ obligatoire ?
'----------------
if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
'---- Teste si le champ est bien rempli
if Str="" then
Erreur=2
Exit For
end if
end if
'----------------
'Teste si c'est un champ email
'----------------
if instr(item,"email")<>0 then
'---- Teste l'adresse Email
if instr(Str,"@")=0 or instr(Str,".")=0 then
Erreur=1
Exit for
end if
end if
if item<>"Destinataire" then
corps = corps & item & " = " & Str & "<BR>"
end if
Str=""
next
'----------------
'Gestion des erreurs
'----------------
Select case Erreur
Case 1: '---- Erreur d'adresse email
response.redirect "Erreur1.htm"
Case 2: '---- Erreur champ obligatoire incorrecte
response.redirect "Erreur2.htm"
Case 0 '---- Aucune Erreur : Envoi du Mail
'------------
'Envois du mail avec CDONTS au client
'----------------
If corps<>"" then
'----------------
'Récupération du champ l'objet du message si il existe
'----------------
if len(Request.Form("Objet"))>0 then
ObjetStr = Request.Form("Objet")
else
ObjetStr = "Message de test"
end if
'----------------
'Identification du message
'----------------
AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
LoginStr = Request.ServerVariables("REMOTE_USER")
'----------------
'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
'-----------------
Set objMail= Server.CreateObject("CDONTS.Newmail")
objMail.mailFormat = 0
objMail.bodyFormat = 0
'----------------
'Création EnTete et Pied de Page
'-----------------
EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
"</a></center><hr>"
PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
AdresseIPstr + " " + LoginStr
objMail.To = Request.form("Destinataire")
objMail.Subject = ObjetStr
objMail.From = "IUSR_FREDA154@freda154"
objMail.Body = EnTeteStr + corps + PiedPageStr
objMail.Send
Set objMail = Nothing
end if
'----------------
'Fin d'envoi avec CDONTS
'----------------
'----------------
'Redirection vers la page Merci.htm
'----------------
response.redirect "merci.htm"
End Select
if Err.number<>0 then
response.write("Une erreur s'est produite")
response.write("Erreur n°"&Err.Number & ":" & Err.description)
response.End
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
____________________________________________________________________
"Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
message
de news:eHEFmWSiEHA.1512@TK2MSFTNGP10.phx.gbl...
Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" <arverne-anti-spam@nat.fr> wrote in message
news:cg83qo$i2a$1@aphrodite.grec.isp.9tel.net...
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
en
> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
formmail.asp)
> Merci.
> --
> arverne
>
>
Voilà, voilà
__________________________________________________________
<%
'-----------------------------------
'---- FORMMAIL pour ASP
'---- Utilise le composant CDONTS
'---- Erreur1.htm : l'email est incorrecte
'---- Erreur2.htm : un champ obligatoire n'est pas rempli
'---- Merci.htm : Page de confirmation
'-----------------------------------
Option Explicit
Dim Corps '----- Corps du message
Dim Objetstr '----- Objet du message
Dim Item
Dim Erreur, StrErreur
Dim Str
Dim Err
Dim objMail
Dim EnTeteStr '----- EnTete du message
Dim PiedPageStr '----- Pied de Page du message
Dim AdresseIPstr '----- Adresse IP de l'emetteur
Dim AdresseURLstr '----- URL d'ou le script est appelé
Dim LoginStr '----- Login du User
'----------------
'Initialisation des variables
'----------------
Erreur = 0
StrErreur = ""
Corps = "<font face='verdana' size=2>"
'----------------
'On récupère les paramètres postés
'----------------
On error resume next
For each item in request.form
Str = trim(request.form(item))
'----------------
'Teste si la première lettre est une majuscule : champ obligatoire ?
'----------------
if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
'---- Teste si le champ est bien rempli
if Str="" then
Erreur=2
Exit For
end if
end if
'----------------
'Teste si c'est un champ email
'----------------
if instr(item,"email")<>0 then
'---- Teste l'adresse Email
if instr(Str,"@")=0 or instr(Str,".")=0 then
Erreur=1
Exit for
end if
end if
if item<>"Destinataire" then
corps = corps & item & " = " & Str & "<BR>"
end if
Str=""
next
'----------------
'Gestion des erreurs
'----------------
Select case Erreur
Case 1: '---- Erreur d'adresse email
response.redirect "Erreur1.htm"
Case 2: '---- Erreur champ obligatoire incorrecte
response.redirect "Erreur2.htm"
Case 0 '---- Aucune Erreur : Envoi du Mail
'------------
'Envois du mail avec CDONTS au client
'----------------
If corps<>"" then
'----------------
'Récupération du champ l'objet du message si il existe
'----------------
if len(Request.Form("Objet"))>0 then
ObjetStr = Request.Form("Objet")
else
ObjetStr = "Message de test"
end if
'----------------
'Identification du message
'----------------
AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
LoginStr = Request.ServerVariables("REMOTE_USER")
'----------------
'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
'-----------------
Set objMail= Server.CreateObject("CDONTS.Newmail")
objMail.mailFormat = 0
objMail.bodyFormat = 0
'----------------
'Création EnTete et Pied de Page
'-----------------
EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
"</a></center><hr>"
PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
AdresseIPstr + " " + LoginStr
objMail.To = Request.form("Destinataire")
objMail.Subject = ObjetStr
objMail.From = ""
objMail.Body = EnTeteStr + corps + PiedPageStr
objMail.Send
Set objMail = Nothing
end if
'----------------
'Fin d'envoi avec CDONTS
'----------------
'----------------
'Redirection vers la page Merci.htm
'----------------
response.redirect "merci.htm"
End Select
if Err.number<>0 then
response.write("Une erreur s'est produite")
response.write("Erreur n°"&Err.Number & ":" & Err.description)
response.End
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
____________________________________________________________________
"Loic boileau [MS]" a écrit dans le
message
de news:Bonjour,
Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
Merci
LoïcB
"arverne" wrote in message
news:cg83qo$i2a$
> Bonjour,
> Je souhaite récupérer les données de mes formulaires à l'aide d'un
> composant
> formmail.asp fonctionnant avec CDONTS.
> Quelqu'un aurait-il une astuce pour que les champs ne me reviennent pas
en> vrac mais triés par ordre alphabétique ? (je ne connais rien à la
> programmation mais j'arrive à me retrouver à l'intérieur de
formmail.asp)> Merci.
> --
> arverne
>
>
Si j'ai bien compris , tu voudrais savoir comment organiser les items de
colection "request.form" en ordre alphabétique?
"arverne" wrote in message
news:cgd57m$l4f$
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = ""
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" wrote in message
>> news:cg83qo$i2a$
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
Si j'ai bien compris , tu voudrais savoir comment organiser les items de
colection "request.form" en ordre alphabétique?
"arverne" <arverne-anti-spam@nat.fr> wrote in message
news:cgd57m$l4f$1@aphrodite.grec.isp.9tel.net...
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = "IUSR_FREDA154@freda154"
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
> message
> de news:eHEFmWSiEHA.1512@TK2MSFTNGP10.phx.gbl...
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" <arverne-anti-spam@nat.fr> wrote in message
>> news:cg83qo$i2a$1@aphrodite.grec.isp.9tel.net...
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
Si j'ai bien compris , tu voudrais savoir comment organiser les items de
colection "request.form" en ordre alphabétique?
"arverne" wrote in message
news:cgd57m$l4f$
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = ""
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" wrote in message
>> news:cg83qo$i2a$
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
Exactement;
Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
nommer mes champs ainsi :
a)-nom
b)-prénom
c)-...
que reprendre tous les noms dans un champ destiné à spécifier l'ordre
voulu.
Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
dans
le code.
Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
--
arverne
"Loic boileau [MS]" a écrit dans le
message
de news:Si j'ai bien compris , tu voudrais savoir comment organiser les items de
lacolection "request.form" en ordre alphabétique?
"arverne" wrote in message
news:cgd57m$l4f$
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = ""
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" wrote in message
>> news:cg83qo$i2a$
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
pas> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
Exactement;
Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
nommer mes champs ainsi :
a)-nom
b)-prénom
c)-...
que reprendre tous les noms dans un champ destiné à spécifier l'ordre
voulu.
Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
dans
le code.
Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
--
arverne
"Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
message
de news:eRCc1HciEHA.1280@TK2MSFTNGP09.phx.gbl...
Si j'ai bien compris , tu voudrais savoir comment organiser les items de
la
colection "request.form" en ordre alphabétique?
"arverne" <arverne-anti-spam@nat.fr> wrote in message
news:cgd57m$l4f$1@aphrodite.grec.isp.9tel.net...
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = "IUSR_FREDA154@freda154"
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
> message
> de news:eHEFmWSiEHA.1512@TK2MSFTNGP10.phx.gbl...
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" <arverne-anti-spam@nat.fr> wrote in message
>> news:cg83qo$i2a$1@aphrodite.grec.isp.9tel.net...
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
pas
> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
Exactement;
Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
nommer mes champs ainsi :
a)-nom
b)-prénom
c)-...
que reprendre tous les noms dans un champ destiné à spécifier l'ordre
voulu.
Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
dans
le code.
Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
--
arverne
"Loic boileau [MS]" a écrit dans le
message
de news:Si j'ai bien compris , tu voudrais savoir comment organiser les items de
lacolection "request.form" en ordre alphabétique?
"arverne" wrote in message
news:cgd57m$l4f$
> Voilà, voilà
> __________________________________________________________
> <%
> '-----------------------------------
> '---- FORMMAIL pour ASP
> '---- Utilise le composant CDONTS
> '---- Erreur1.htm : l'email est incorrecte
> '---- Erreur2.htm : un champ obligatoire n'est pas rempli
> '---- Merci.htm : Page de confirmation
> '-----------------------------------
>
> Option Explicit
> Dim Corps '----- Corps du message
> Dim Objetstr '----- Objet du message
> Dim Item
> Dim Erreur, StrErreur
> Dim Str
> Dim Err
> Dim objMail
>
> Dim EnTeteStr '----- EnTete du message
> Dim PiedPageStr '----- Pied de Page du message
> Dim AdresseIPstr '----- Adresse IP de l'emetteur
> Dim AdresseURLstr '----- URL d'ou le script est appelé
> Dim LoginStr '----- Login du User
>
> '----------------
> 'Initialisation des variables
> '----------------
>
> Erreur = 0
> StrErreur = ""
> Corps = "<font face='verdana' size=2>"
>
> '----------------
> 'On récupère les paramètres postés
> '----------------
> On error resume next
> For each item in request.form
> Str = trim(request.form(item))
>
> '----------------
> 'Teste si la première lettre est une majuscule : champ obligatoire ?
> '----------------
> if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
> '---- Teste si le champ est bien rempli
> if Str="" then
> Erreur=2
> Exit For
> end if
> end if
>
> '----------------
> 'Teste si c'est un champ email
> '----------------
> if instr(item,"email")<>0 then
> '---- Teste l'adresse Email
> if instr(Str,"@")=0 or instr(Str,".")=0 then
> Erreur=1
> Exit for
> end if
> end if
> if item<>"Destinataire" then
> corps = corps & item & " = " & Str & "<BR>"
> end if
> Str=""
>
> next
>
> '----------------
> 'Gestion des erreurs
> '----------------
>
> Select case Erreur
>
> Case 1: '---- Erreur d'adresse email
> response.redirect "Erreur1.htm"
>
> Case 2: '---- Erreur champ obligatoire incorrecte
> response.redirect "Erreur2.htm"
>
> Case 0 '---- Aucune Erreur : Envoi du Mail
>
>
> '------------
> 'Envois du mail avec CDONTS au client
> '----------------
> If corps<>"" then
> '----------------
> 'Récupération du champ l'objet du message si il existe
> '----------------
> if len(Request.Form("Objet"))>0 then
> ObjetStr = Request.Form("Objet")
> else
> ObjetStr = "Message de test"
> end if
>
> '----------------
> 'Identification du message
> '----------------
> AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
> AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
> LoginStr = Request.ServerVariables("REMOTE_USER")
>
> '----------------
> 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
> '-----------------
> Set objMail= Server.CreateObject("CDONTS.Newmail")
> objMail.mailFormat = 0
> objMail.bodyFormat = 0
>
> '----------------
> 'Création EnTete et Pied de Page
> '-----------------
> EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
> href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
> EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message en
> provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
> "</a></center><hr>"
> PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
> AdresseIPstr + " " + LoginStr
>
> objMail.To = Request.form("Destinataire")
> objMail.Subject = ObjetStr
> objMail.From = ""
> objMail.Body = EnTeteStr + corps + PiedPageStr
> objMail.Send
> Set objMail = Nothing
>
> end if
> '----------------
> 'Fin d'envoi avec CDONTS
> '----------------
>
> '----------------
> 'Redirection vers la page Merci.htm
> '----------------
> response.redirect "merci.htm"
>
>
>
> End Select
>
> if Err.number<>0 then
> response.write("Une erreur s'est produite")
> response.write("Erreur n°"&Err.Number & ":" & Err.description)
> response.End
> end if
>
> %>
> <html>
>
> <head>
> <title></title>
> </head>
>
> <body>
> </body>
> </html>
> ____________________________________________________________________
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Bonjour,
>> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>>
>> Merci
>>
>> LoïcB
>>
>> "arverne" wrote in message
>> news:cg83qo$i2a$
>> > Bonjour,
>> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> > composant
>> > formmail.asp fonctionnant avec CDONTS.
>> > Quelqu'un aurait-il une astuce pour que les champs ne me reviennent
pas> en
>> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> > programmation mais j'arrive à me retrouver à l'intérieur de
> formmail.asp)
>> > Merci.
>> > --
>> > arverne
>> >
>> >
>>
>>
>
>
tu ne peux pas le faire directement.
Il faut passer par un tri du genre "QuickSort" (tri à bule). par code.
autre conseille:
tu pourrais gérer la gestion d'erreurs coté client en script pour éviter
redirect.
LoïcB
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
"arverne" wrote in message
news:cgfakm$krm$
> Exactement;
>
> Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
> nommer mes champs ainsi :
> a)-nom
> b)-prénom
> c)-...
> que reprendre tous les noms dans un champ destiné à spécifier l'ordre
> voulu.
> Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
> dans
> le code.
> Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
> --
> arverne
>
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Si j'ai bien compris , tu voudrais savoir comment organiser les items
> la
>> colection "request.form" en ordre alphabétique?
>>
>> "arverne" wrote in message
>> news:cgd57m$l4f$
>> > Voilà, voilà
>> > __________________________________________________________
>> > <%
>> > '-----------------------------------
>> > '---- FORMMAIL pour ASP
>> > '---- Utilise le composant CDONTS
>> > '---- Erreur1.htm : l'email est incorrecte
>> > '---- Erreur2.htm : un champ obligatoire n'est pas rempli
>> > '---- Merci.htm : Page de confirmation
>> > '-----------------------------------
>> >
>> > Option Explicit
>> > Dim Corps '----- Corps du message
>> > Dim Objetstr '----- Objet du message
>> > Dim Item
>> > Dim Erreur, StrErreur
>> > Dim Str
>> > Dim Err
>> > Dim objMail
>> >
>> > Dim EnTeteStr '----- EnTete du message
>> > Dim PiedPageStr '----- Pied de Page du message
>> > Dim AdresseIPstr '----- Adresse IP de l'emetteur
>> > Dim AdresseURLstr '----- URL d'ou le script est appelé
>> > Dim LoginStr '----- Login du User
>> >
>> > '----------------
>> > 'Initialisation des variables
>> > '----------------
>> >
>> > Erreur = 0
>> > StrErreur = ""
>> > Corps = "<font face='verdana' size=2>"
>> >
>> > '----------------
>> > 'On récupère les paramètres postés
>> > '----------------
>> > On error resume next
>> > For each item in request.form
>> > Str = trim(request.form(item))
>> >
>> > '----------------
>> > 'Teste si la première lettre est une majuscule : champ obligatoire ?
>> > '----------------
>> > if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
>> > '---- Teste si le champ est bien rempli
>> > if Str="" then
>> > Erreur=2
>> > Exit For
>> > end if
>> > end if
>> >
>> > '----------------
>> > 'Teste si c'est un champ email
>> > '----------------
>> > if instr(item,"email")<>0 then
>> > '---- Teste l'adresse Email
>> > if instr(Str,"@")=0 or instr(Str,".")=0 then
>> > Erreur=1
>> > Exit for
>> > end if
>> > end if
>> > if item<>"Destinataire" then
>> > corps = corps & item & " = " & Str & "<BR>"
>> > end if
>> > Str=""
>> >
>> > next
>> >
>> > '----------------
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
>> >
>> >
>> > '------------
>> > 'Envois du mail avec CDONTS au client
>> > '----------------
>> > If corps<>"" then
>> > '----------------
>> > 'Récupération du champ l'objet du message si il existe
>> > '----------------
>> > if len(Request.Form("Objet"))>0 then
>> > ObjetStr = Request.Form("Objet")
>> > else
>> > ObjetStr = "Message de test"
>> > end if
>> >
>> > '----------------
>> > 'Identification du message
>> > '----------------
>> > AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
>> > AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
>> > LoginStr = Request.ServerVariables("REMOTE_USER")
>> >
>> > '----------------
>> > 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
>> > '-----------------
>> > Set objMail= Server.CreateObject("CDONTS.Newmail")
>> > objMail.mailFormat = 0
>> > objMail.bodyFormat = 0
>> >
>> > '----------------
>> > 'Création EnTete et Pied de Page
>> > '-----------------
>> > EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
>> > href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
>> > EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message
>> > provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
>> > "</a></center><hr>"
>> > PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
>> > AdresseIPstr + " " + LoginStr
>> >
>> > objMail.To = Request.form("Destinataire")
>> > objMail.Subject = ObjetStr
>> > objMail.From = ""
>> > objMail.Body = EnTeteStr + corps + PiedPageStr
>> > objMail.Send
>> > Set objMail = Nothing
>> >
>> > end if
>> > '----------------
>> > 'Fin d'envoi avec CDONTS
>> > '----------------
>> >
>> > '----------------
>> > 'Redirection vers la page Merci.htm
>> > '----------------
>> > response.redirect "merci.htm"
>> >
>> >
>> >
>> > End Select
>> >
>> > if Err.number<>0 then
>> > response.write("Une erreur s'est produite")
>> > response.write("Erreur n°"&Err.Number & ":" & Err.description)
>> > response.End
>> > end if
>> >
>> > %>
>> > <html>
>> >
>> > <head>
>> > <title></title>
>> > </head>
>> >
>> > <body>
>> > </body>
>> > </html>
>> > ____________________________________________________________________
>> >
>> > "Loic boileau [MS]" a écrit dans le
>> > message
>> > de news:
>> >> Bonjour,
>> >> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>> >>
>> >> Merci
>> >>
>> >> LoïcB
>> >>
>> >> "arverne" wrote in message
>> >> news:cg83qo$i2a$
>> >> > Bonjour,
>> >> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> >> > composant
>> >> > formmail.asp fonctionnant avec CDONTS.
>> >> > Quelqu'un aurait-il une astuce pour que les champs ne me
> pas
>> > en
>> >> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> >> > programmation mais j'arrive à me retrouver à l'intérieur de
>> > formmail.asp)
>> >> > Merci.
>> >> > --
>> >> > arverne
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
tu ne peux pas le faire directement.
Il faut passer par un tri du genre "QuickSort" (tri à bule). par code.
autre conseille:
tu pourrais gérer la gestion d'erreurs coté client en script pour éviter
redirect.
LoïcB
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
"arverne" <arverne-anti-spam@nat.fr> wrote in message
news:cgfakm$krm$1@aphrodite.grec.isp.9tel.net...
> Exactement;
>
> Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
> nommer mes champs ainsi :
> a)-nom
> b)-prénom
> c)-...
> que reprendre tous les noms dans un champ destiné à spécifier l'ordre
> voulu.
> Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
> dans
> le code.
> Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
> --
> arverne
>
>
> "Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
> message
> de news:eRCc1HciEHA.1280@TK2MSFTNGP09.phx.gbl...
>> Si j'ai bien compris , tu voudrais savoir comment organiser les items
> la
>> colection "request.form" en ordre alphabétique?
>>
>> "arverne" <arverne-anti-spam@nat.fr> wrote in message
>> news:cgd57m$l4f$1@aphrodite.grec.isp.9tel.net...
>> > Voilà, voilà
>> > __________________________________________________________
>> > <%
>> > '-----------------------------------
>> > '---- FORMMAIL pour ASP
>> > '---- Utilise le composant CDONTS
>> > '---- Erreur1.htm : l'email est incorrecte
>> > '---- Erreur2.htm : un champ obligatoire n'est pas rempli
>> > '---- Merci.htm : Page de confirmation
>> > '-----------------------------------
>> >
>> > Option Explicit
>> > Dim Corps '----- Corps du message
>> > Dim Objetstr '----- Objet du message
>> > Dim Item
>> > Dim Erreur, StrErreur
>> > Dim Str
>> > Dim Err
>> > Dim objMail
>> >
>> > Dim EnTeteStr '----- EnTete du message
>> > Dim PiedPageStr '----- Pied de Page du message
>> > Dim AdresseIPstr '----- Adresse IP de l'emetteur
>> > Dim AdresseURLstr '----- URL d'ou le script est appelé
>> > Dim LoginStr '----- Login du User
>> >
>> > '----------------
>> > 'Initialisation des variables
>> > '----------------
>> >
>> > Erreur = 0
>> > StrErreur = ""
>> > Corps = "<font face='verdana' size=2>"
>> >
>> > '----------------
>> > 'On récupère les paramètres postés
>> > '----------------
>> > On error resume next
>> > For each item in request.form
>> > Str = trim(request.form(item))
>> >
>> > '----------------
>> > 'Teste si la première lettre est une majuscule : champ obligatoire ?
>> > '----------------
>> > if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
>> > '---- Teste si le champ est bien rempli
>> > if Str="" then
>> > Erreur=2
>> > Exit For
>> > end if
>> > end if
>> >
>> > '----------------
>> > 'Teste si c'est un champ email
>> > '----------------
>> > if instr(item,"email")<>0 then
>> > '---- Teste l'adresse Email
>> > if instr(Str,"@")=0 or instr(Str,".")=0 then
>> > Erreur=1
>> > Exit for
>> > end if
>> > end if
>> > if item<>"Destinataire" then
>> > corps = corps & item & " = " & Str & "<BR>"
>> > end if
>> > Str=""
>> >
>> > next
>> >
>> > '----------------
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
>> >
>> >
>> > '------------
>> > 'Envois du mail avec CDONTS au client
>> > '----------------
>> > If corps<>"" then
>> > '----------------
>> > 'Récupération du champ l'objet du message si il existe
>> > '----------------
>> > if len(Request.Form("Objet"))>0 then
>> > ObjetStr = Request.Form("Objet")
>> > else
>> > ObjetStr = "Message de test"
>> > end if
>> >
>> > '----------------
>> > 'Identification du message
>> > '----------------
>> > AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
>> > AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
>> > LoginStr = Request.ServerVariables("REMOTE_USER")
>> >
>> > '----------------
>> > 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
>> > '-----------------
>> > Set objMail= Server.CreateObject("CDONTS.Newmail")
>> > objMail.mailFormat = 0
>> > objMail.bodyFormat = 0
>> >
>> > '----------------
>> > 'Création EnTete et Pied de Page
>> > '-----------------
>> > EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
>> > href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
>> > EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message
>> > provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
>> > "</a></center><hr>"
>> > PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
>> > AdresseIPstr + " " + LoginStr
>> >
>> > objMail.To = Request.form("Destinataire")
>> > objMail.Subject = ObjetStr
>> > objMail.From = "IUSR_FREDA154@freda154"
>> > objMail.Body = EnTeteStr + corps + PiedPageStr
>> > objMail.Send
>> > Set objMail = Nothing
>> >
>> > end if
>> > '----------------
>> > 'Fin d'envoi avec CDONTS
>> > '----------------
>> >
>> > '----------------
>> > 'Redirection vers la page Merci.htm
>> > '----------------
>> > response.redirect "merci.htm"
>> >
>> >
>> >
>> > End Select
>> >
>> > if Err.number<>0 then
>> > response.write("Une erreur s'est produite")
>> > response.write("Erreur n°"&Err.Number & ":" & Err.description)
>> > response.End
>> > end if
>> >
>> > %>
>> > <html>
>> >
>> > <head>
>> > <title></title>
>> > </head>
>> >
>> > <body>
>> > </body>
>> > </html>
>> > ____________________________________________________________________
>> >
>> > "Loic boileau [MS]" <lboileau@online.microsoft.com> a écrit dans le
>> > message
>> > de news:eHEFmWSiEHA.1512@TK2MSFTNGP10.phx.gbl...
>> >> Bonjour,
>> >> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>> >>
>> >> Merci
>> >>
>> >> LoïcB
>> >>
>> >> "arverne" <arverne-anti-spam@nat.fr> wrote in message
>> >> news:cg83qo$i2a$1@aphrodite.grec.isp.9tel.net...
>> >> > Bonjour,
>> >> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> >> > composant
>> >> > formmail.asp fonctionnant avec CDONTS.
>> >> > Quelqu'un aurait-il une astuce pour que les champs ne me
> pas
>> > en
>> >> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> >> > programmation mais j'arrive à me retrouver à l'intérieur de
>> > formmail.asp)
>> >> > Merci.
>> >> > --
>> >> > arverne
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
tu ne peux pas le faire directement.
Il faut passer par un tri du genre "QuickSort" (tri à bule). par code.
autre conseille:
tu pourrais gérer la gestion d'erreurs coté client en script pour éviter
redirect.
LoïcB
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
"arverne" wrote in message
news:cgfakm$krm$
> Exactement;
>
> Je souhaite cela car, dans mon formulaire html, je trouve plus rapide de
> nommer mes champs ainsi :
> a)-nom
> b)-prénom
> c)-...
> que reprendre tous les noms dans un champ destiné à spécifier l'ordre
> voulu.
> Il semble d'ailleurs que cette possibilité ne soit pas non plus prévue
> dans
> le code.
> Toutefois, si c'est casse pied à réaliser, j'utiliserai un autre script.
> --
> arverne
>
>
> "Loic boileau [MS]" a écrit dans le
> message
> de news:
>> Si j'ai bien compris , tu voudrais savoir comment organiser les items
> la
>> colection "request.form" en ordre alphabétique?
>>
>> "arverne" wrote in message
>> news:cgd57m$l4f$
>> > Voilà, voilà
>> > __________________________________________________________
>> > <%
>> > '-----------------------------------
>> > '---- FORMMAIL pour ASP
>> > '---- Utilise le composant CDONTS
>> > '---- Erreur1.htm : l'email est incorrecte
>> > '---- Erreur2.htm : un champ obligatoire n'est pas rempli
>> > '---- Merci.htm : Page de confirmation
>> > '-----------------------------------
>> >
>> > Option Explicit
>> > Dim Corps '----- Corps du message
>> > Dim Objetstr '----- Objet du message
>> > Dim Item
>> > Dim Erreur, StrErreur
>> > Dim Str
>> > Dim Err
>> > Dim objMail
>> >
>> > Dim EnTeteStr '----- EnTete du message
>> > Dim PiedPageStr '----- Pied de Page du message
>> > Dim AdresseIPstr '----- Adresse IP de l'emetteur
>> > Dim AdresseURLstr '----- URL d'ou le script est appelé
>> > Dim LoginStr '----- Login du User
>> >
>> > '----------------
>> > 'Initialisation des variables
>> > '----------------
>> >
>> > Erreur = 0
>> > StrErreur = ""
>> > Corps = "<font face='verdana' size=2>"
>> >
>> > '----------------
>> > 'On récupère les paramètres postés
>> > '----------------
>> > On error resume next
>> > For each item in request.form
>> > Str = trim(request.form(item))
>> >
>> > '----------------
>> > 'Teste si la première lettre est une majuscule : champ obligatoire ?
>> > '----------------
>> > if Asc(mid(item,1,1))>e and Asc(mid(item,1,1))< then
>> > '---- Teste si le champ est bien rempli
>> > if Str="" then
>> > Erreur=2
>> > Exit For
>> > end if
>> > end if
>> >
>> > '----------------
>> > 'Teste si c'est un champ email
>> > '----------------
>> > if instr(item,"email")<>0 then
>> > '---- Teste l'adresse Email
>> > if instr(Str,"@")=0 or instr(Str,".")=0 then
>> > Erreur=1
>> > Exit for
>> > end if
>> > end if
>> > if item<>"Destinataire" then
>> > corps = corps & item & " = " & Str & "<BR>"
>> > end if
>> > Str=""
>> >
>> > next
>> >
>> > '----------------
>> > 'Gestion des erreurs
>> > '----------------
>> >
>> > Select case Erreur
>> >
>> > Case 1: '---- Erreur d'adresse email
>> > response.redirect "Erreur1.htm"
>> >
>> > Case 2: '---- Erreur champ obligatoire incorrecte
>> > response.redirect "Erreur2.htm"
>> >
>> > Case 0 '---- Aucune Erreur : Envoi du Mail
>> >
>> >
>> > '------------
>> > 'Envois du mail avec CDONTS au client
>> > '----------------
>> > If corps<>"" then
>> > '----------------
>> > 'Récupération du champ l'objet du message si il existe
>> > '----------------
>> > if len(Request.Form("Objet"))>0 then
>> > ObjetStr = Request.Form("Objet")
>> > else
>> > ObjetStr = "Message de test"
>> > end if
>> >
>> > '----------------
>> > 'Identification du message
>> > '----------------
>> > AdresseIPstr = Request.ServerVariables("REMOTE_ADDR")
>> > AdresseURLstr = Request.ServerVariables("HTTP_REFERER")
>> > LoginStr = Request.ServerVariables("REMOTE_USER")
>> >
>> > '----------------
>> > 'Creation de l'objet CDO et mise au Format HTML (propriétés à zero)
>> > '-----------------
>> > Set objMail= Server.CreateObject("CDONTS.Newmail")
>> > objMail.mailFormat = 0
>> > objMail.bodyFormat = 0
>> >
>> > '----------------
>> > 'Création EnTete et Pied de Page
>> > '-----------------
>> > EnTeteStr = "<p alignÎnter><font face='verdana' size=2><a
>> > href='http://inessfr2/'>Intranet Saint-Maur</a></center></p>"
>> > EnTeteStr = EnTeteStr + "<center><font face='verdana' size=1>Message
>> > provenance de <a href=" + AdresseURLstr + ">" + AdresseURLstr +
>> > "</a></center><hr>"
>> > PiedPageStr= "<hr><center><font face='verdana' size=1>Emetteur : " +
>> > AdresseIPstr + " " + LoginStr
>> >
>> > objMail.To = Request.form("Destinataire")
>> > objMail.Subject = ObjetStr
>> > objMail.From = ""
>> > objMail.Body = EnTeteStr + corps + PiedPageStr
>> > objMail.Send
>> > Set objMail = Nothing
>> >
>> > end if
>> > '----------------
>> > 'Fin d'envoi avec CDONTS
>> > '----------------
>> >
>> > '----------------
>> > 'Redirection vers la page Merci.htm
>> > '----------------
>> > response.redirect "merci.htm"
>> >
>> >
>> >
>> > End Select
>> >
>> > if Err.number<>0 then
>> > response.write("Une erreur s'est produite")
>> > response.write("Erreur n°"&Err.Number & ":" & Err.description)
>> > response.End
>> > end if
>> >
>> > %>
>> > <html>
>> >
>> > <head>
>> > <title></title>
>> > </head>
>> >
>> > <body>
>> > </body>
>> > </html>
>> > ____________________________________________________________________
>> >
>> > "Loic boileau [MS]" a écrit dans le
>> > message
>> > de news:
>> >> Bonjour,
>> >> Pourrais tu nous copier/coller ton code ASP pour y voir un peu plus?
>> >>
>> >> Merci
>> >>
>> >> LoïcB
>> >>
>> >> "arverne" wrote in message
>> >> news:cg83qo$i2a$
>> >> > Bonjour,
>> >> > Je souhaite récupérer les données de mes formulaires à l'aide d'un
>> >> > composant
>> >> > formmail.asp fonctionnant avec CDONTS.
>> >> > Quelqu'un aurait-il une astuce pour que les champs ne me
> pas
>> > en
>> >> > vrac mais triés par ordre alphabétique ? (je ne connais rien à la
>> >> > programmation mais j'arrive à me retrouver à l'intérieur de
>> > formmail.asp)
>> >> > Merci.
>> >> > --
>> >> > arverne
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
