Bonjour, vous pouvez m'aider, recupération de données.voici:
Sendmail.ASP
' --- Remplace %%Variable%% par les valeurs des champs et Carriage Return par
---
For Each Item In Request.Form
If Request.Form("nom") = "" Then
Lecture = Replace (Lecture, "%%" & Item & "%%" , " ")
' Response.Write Request.Form("nom") & "
"
Else
If Request.Form("nom") = "Oui" Then
Lecture = Replace (Lecture, "%%" & Item & "%%" , "√")
Else
Lecture = Replace (Lecture, "%%" & Item & "%%" , Lineify (Request.Form(Item)))
End If
End If
Next
'Response.Write "Test " & Lecture & "
"
vPosPourcent = InStr(Lecture, "%%")
Do While vPosPourcent <> 0
vLectureDebut = Left(Lecture, VposPourcent - 1)
vLectureFin = Mid(Lecture, VposPourcent + 2)
vPosPourcent2 = InStr(vLectureFin, "%%")
Lecture = vLectureDebut & " " & Mid(vLectureFin, vPosPourcent2 + 2 )
vPosPourcent = InStr(Lecture, "%%")
Loop
'Response.Write Lecture & "
"
strMsg = Lecture
Mailer.BodyText = strMsg
FORMULAIRE