Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

mail formulaire

Envoyé: 19 juillet 2004, 4h29 par fx4sky


Bonjour, je cherche à poster l'ensemble des informations saisies dans un formulaire pour les envoyé par mail.

J'ai crée un formulaire en asp et j'aimerai envoyé le contenu de l'ensemble des champs de ce formulaire à une liste de personnes par mail.

J'utilise Cdonts mais les mail restent bloqué dans Inetpub\Badmail

voici mon code. Pouvez vous m'aider ?? que dois je faire ?
Merci d'avance.

--------------------------------

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>fiche de suivi xp
</title>
</head>
<body bgcolor="#99CC99">
<div align="center">
<font face="Comic Sans MS" color="#008080"> Insertion d'un nouvel enregistrement dans la base de données mvtmateriel
<Font color="#008000">
</Font>
<br>
</font>
</div>
<strong>
</strong>
<div align="center">
<strong>
<font face="Arial" size="2" color="#0000FF">Login :
<input name="logeu" type="text" value="<%
dim masignature
if moncodeu ="" then
masignature = request.serverVariables("AUTH_USER")
if len(masignature)>13 then moncodeu = mid(masignature,9,6)
response.write(moncodeu)
end if
%>" size="6">
</font><font face="Arial" size="2" color="#FF0000"> !! Veuillez remplir l'intégralité des champs, merci !!



</font>
</strong>
</div>
<form method="POST" action="enregistrement_inscription.asp" name="SaisieParticipant">

<table width="800" border="3" align="CENTER">
<tr>
<td>
<strong>Nom de l'ordinateur
</strong>
</td>
<td>
<input name="nomordi" type="text"

value="<%' procédure d'ouverture et de lecture du fichier config.txt
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
liste=Server.MapPath("/jean/config.txt")
config = liste & "\config.txt"
set config = FSO.OpenTextFile(liste,1,FALSE,FALSE)
contenu = config.readall
posnetbios = instr(contenu, "Netbios" & chr(61))
if posnetbios > 0 then
nomordi = mid(contenu, posnetbios + 8, 10)
response.write(nomordi)
end if
config.close
%>" size="11" maxlength="11">
</td>
<td>
<strong><font color="#FF0000">Modèle</font> </strong>
</td>
<td>

<%
'--- Ouverture de la connexion bd,
'--- On suppose qu'il existe un DSN nommé mabase

Set Conn=Server.createObject("ADODB.Connection")
Conn.open "mvtmateriel"
'--- Début du code pour l'affichage des éléments de la liste
%>

<SELECT NAME="modele" SIZE=1>

'--- Ouverture du recordset sur les éléments de la table pays
<% Set rs = conn.Execute("SELECT * FROM modele")
%>

<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>


<OPTION VALUE="<%= rs("modele")%>"> <%= rs("modele") %></OPTION>

<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop
%>

</SELECT>
<%
'--- Fermeture de la connexion
Set rs=nothing
conn.Close
set conn=nothing
%>


<td height="29">
<strong>Type</strong>
</td>
<td>
<div align="center">
<input type="text" name="type" value="<%' procédure d'ouverture et de lecture du fichier config.txt
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
liste=Server.MapPath("/jean/config.txt")
config = liste & "\config.txt"
set config = FSO.OpenTextFile(liste,1,FALSE,FALSE)
contenu = config.readall
posnetbios = instr(contenu, "Poste" & chr(61))
if posnetbios > 0 then
nomordi = mid(contenu, posnetbios + 6, 6)
response.write(nomordi)
end if
config.close
%>">
</div>
</td>
</tr>



</tr>
<td>
<strong><font color="#FF0000">Nom utilisateur</font> </strong>
<td><%
'--- Ouverture de la connexion bd,
'--- On suppose qu'il existe un DSN nomme mabase
Set Conn=Server.createObject("ADODB.Connection")
Conn.open "mvtmateriel"
'--- Debut du code pour l'affichage des elements de la liste
%>
<SELECT NAME="nom" SIZE=1 onChange="document.SaisieParticipant.login.value = logins[this.selectedIndex+1];">
'--- Ouverture du recordset sur les elements de la table pays
<% Set rs = conn.Execute("SELECT eu, description FROM login ORDER BY description")
list_logins = "''"
Do While Not rs.EOF: list_logins = list_logins & ", '" & rs("eu") & "'"
'--- Parcours des elements de la table pays
'--- Insertion des elements dans la liste deroulante
'--- Value contient l'id du pays dans la table pays %>
<OPTION VALUE="<%= rs("description")%>"> <%= rs("description") %></OPTION>
<% '--- Recherche de l'element suivant
rs.MoveNext: Loop %>
</SELECT>
</td>
<script>
logins = new Array(<% =list_logins %>);
</script>
<td><strong> Login</strong></td>
<td><input name="login" type="text" value="" size="7"></td>


<td height="29">
<strong>Type 2</strong></td>
<td>
<div align="center">
<input name="type2" type="text" value="<%' procédure d'ouverture et de lecture du fichier config.txt
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
liste=Server.MapPath("/jean/config.txt")
config = liste & "\config.txt"
set config = FSO.OpenTextFile(liste,1,FALSE,FALSE)
contenu = config.readall
posnetbios = instr(contenu, "Model" & chr(61))
if posnetbios > 0 then
nomordi = mid(contenu, posnetbios + 6, 6)
response.write(nomordi)
end if
config.close
%>">
</div>
</td>
<tr>
<td height="29">
<strong>Ordinateur </strong>
</td>
<td>
<strong>N° Serie </strong>
</td>
<td>
<input type="text" name="serial" value="<%' procédure d'ouverture et de lecture du fichier config.txt
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
liste=Server.MapPath("/jean/config.txt")
config = liste & "\config.txt"
set config = FSO.OpenTextFile(liste,1,FALSE,FALSE)
contenu = config.readall
nserie = instr(contenu, "Serie=" & chr(34))
if nserie > 0 then
serie = mid(contenu, nserie + 7, 7)
response.write(serie)
end if
config.close
%>">




</td>
<td>
<strong><font color="#FF0000">Code Barre </font></strong>
</td>
<td>
<input type="text" name="codebar" >
</td>
</tr>
<tr>
<td><strong><font color="#FF0000">Serveur télédiffusion</font></strong> </td>
<td><SELECT NAME="nserveur" SIZE=1 id="nserveur" onChange="document.SaisieParticipant.login.value = logins[this.selectedIndex+1];">
<% Set rs = conn.Execute("SELECT * FROM nserveur")
%>
<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>
<OPTION VALUE="<%= rs("serveur")%>"> <%= rs("serveur") %></OPTION>
<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop
%>
</SELECT>
</td>
<td>
<strong><font color="#FF0000">Profil Métier</font> </strong>
</td>
<td><SELECT NAME="pmetier" SIZE=1 id="pmetier" onChange="document.SaisieParticipant.login.value = logins[this.selectedIndex+1];">

<% Set rs = conn.Execute("SELECT * FROM pmetier")
%>

<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>


<OPTION VALUE="<%= rs("metiers")%>"> <%= rs("metiers") %></OPTION>

<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop
%>
</SELECT>
</td>
<td><strong><font color="#FF0000">Logiciels spécifiques à installer en manuel</font> </strong></td>
<td><select name="logs" size="4" multiple>
<% Set rs = conn.Execute("SELECT * FROM logz")
%>

<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>


<OPTION VALUE="<%= rs("logiciels")%>"> <%= rs("logiciels") %></OPTION>

<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td>
<strong>Ecran cathodique</strong>
</td>
<td> 
</td>
<td> 
</td>
<td>
<strong><font color="#000000">Code Barre</font></strong> </td>
<td>
<input type="text" name="codebarc" >
</td>
</tr>

<tr>
<td height="29">
<strong>Ecran plat </strong>
</td>
<td>
<strong>N° Serie</strong></td>
<td>
<input type="text" name="serialp" >
</td>
<td>
<strong><font color="#000000">Code Barre</font></strong></td>
<td>
<input type="text" name="codebarp" >
</td>
<tr>
<td height="29">
<strong>Scanner</strong>
</td>
<td>
<strong>N° Serie</strong></td>
<td>
<input type="text" name="serials" >
</td>
<td>
<strong><font color="#000000">Code Barre</font></strong></td>
<td>
<input type="text" name="codebars" >
</td>
<tr>
<td height="29">
<strong>Clavier </strong>
</td>
<td>
<div align="center">
<select name="clavier">
<option value="non" selected>non</option>
<option value="oui">oui</option>
</select>
</div>
</td>
<td height="29">
<strong>Type Souris</strong>
</td>
<td>
<div align="center">
<select name="souris">
<option value="ps2" selected>ps2</option>
<option value="usb">ubs</option>
</select>
</div>
</td>
</tr>
<tr>
<td height="29">
<strong>Type Module CD-Rom portable</strong>
</td>
<td>
<div align="center">
<select name="modulecdrom">
<option value="Aucun" selected>Aucun</option>
<option value="Dell">Dell</option>
<option value="Ibm">Ibm</option>
</select>
</div>
</td>
<td height="29">
<strong>Type carte PCMCIA </strong>
</td>
<td>
<div align="center">
<select name="pcmcia">
<option value="aucune" selected>aucune</option>
<option value="modem">modem</option>
<option value="ethernet">ethernet</option>
</select>
</div>
</td>
</tr>
<tr>
<td height="29">
<strong>Valise </strong>
</td>
<td>
<div align="center">
<select name="valise">
<option value="non" selected>non</option>
<option value="oui">oui</option>
</select>
</div>
</td>
</tr>
<tr>
<td height="29">
<strong>Type imprimante </strong>
</td>
<td>
<div align="center">

<%
'--- Ouverture de la connexion bd,
'--- On suppose qu'il existe un DSN nommé mabase

Set Conn=Server.createObject("ADODB.Connection")
Conn.open "mvtmateriel"
'--- Début du code pour l'affichage des éléments de la liste
%>
<SELECT NAME="imprimante" SIZE=1>

'--- Ouverture du recordset sur les éléments de la table pays
<% Set rs = conn.Execute("SELECT * FROM imprimante") %>

<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>
<OPTION VALUE="<%= rs("imprimante") %>"> <%= rs("imprimante") %></OPTION>
<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop %>
</SELECT>

<%
'--- Fermeture de la connexion
Set rs=nothing
conn.Close
set conn=nothing
%>
</div>
<td>
<strong>Serial</strong>
</td>
<td>
<input type="text" name="seriali" >
</td>
<td>
<strong>Codebar</strong>
</td>
<td>
<input type="text" name="codebari" >
</td>
<br>
<tr>
<td>
<strong>Date d'enregistrement</strong>
</td>
<td>
<input type="text" name="dat1" value="<% response.write(FormatDateTime(Now(),2) & " " ) %>" >
</td>
<br>
<td height="29">
<p> 
</p>
<p>
<strong>Remarques</strong>
</p>
<p> 
</p>
</td>
<td>
<textarea name="remarque"></textarea>
</td>
<td height="29">
<p> 
</p>
<p>
<strong><font color="#FF0000">Envoyer le formulaire à : </font></strong>
</p>
<p> 
</p>
</td>
<td>
<%
'--- Ouverture de la connexion bd,
'--- On suppose qu'il existe un DSN nommé mabase

Set Conn=Server.createObject("ADODB.Connection")
Conn.open "mvtmateriel"
'--- Début du code pour l'affichage des éléments de la liste
%>
<SELECT NAME="email" SIZE=7 multiple>

'--- Ouverture du recordset sur les éléments de la table pays

<% Set rs = conn.Execute("SELECT * FROM mail") %>

<%
rs.movefirst
Do While Not rs.EOF
'--- Parcours des éléments de la table pays

'--- Insertion des éléments dans la liste déroulante
'--- Value contient l'id du pays dans la table pays
%>
<OPTION VALUE="<%= rs("email") %>"> <%= rs("email") %></OPTION>
<%

'--- Recherche de l'élément suivant
rs.MoveNext
Loop %>
</SELECT>

<%
'--- Fermeture de la connexion
Set rs=nothing
conn.Close
set conn=nothing
%>


<%
VarEmail=Request.form("email")

message = ""
for each nomordi in request.form
message = message & "<br>" & nomordi & ":" & request.form(nomordi)
next
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 0
objNewMail.From = "jrenaut@groupama-ge.fr"
objNewMail.To = VarEmail
objNewMail.cc = ""
objNewMail.bcc = ""
objNewMail.Subject = "Nouveau materiel saisi dans la base de données mvtmateriel.mdb"
objNewMail.Body = message
objNewMail.Send
Set objNewMail = Nothing

%>

</td>
</tr>
</table>
<div align="right">
<input name="action" type="submit" value="Envoyer la fiche !">

</div>
</FORM>

<p>
<br>
</p>
<p>
<br>
</p>
</body>
</html>

---------------------------------

voici le contenu des fichiers qui se trouve dans badmail :

X-Sender: jrenaut@groupama-ge.fr
From: <jrenaut@groupama-ge.fr>
Subject: =?iso-8859-1?Q?Nouveau_materiel_saisi_dans_la_base_de_donn=E9es_mvt
materi?=
=?iso-8859-1?Q?el.mdb?=
Date: Tue, 13 Jul 2004 13:46:31 +0200
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0041_01C468DF.CE27B140"
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3

This is a multi-part message in MIME format.

------=_NextPart_000_0041_01C468DF.CE27B140
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

------=_NextPart_000_0041_01C468DF.CE27B140
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

------=_NextPart_000_0041_01C468DF.CE27B140--

Je ne comprends pas d'ou viens l'erreur.

Merci d'avance


Réponses

 sp spRe: mail formulaire Oznog19/7/2004
 sp spRe: mail formulaire fx4sky19/7/2004
Aucun médias sociaux
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@