<%ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
for each item in request.form
if request.form(item) = "" then
alert = "Tous les champs doivent avoir une réponse valide"
end If
Next
If alert = "" Then
alert = "Tous les champs sont remplis"
End If
End If%>
validation_des_champs.asp
<%If alert <> "" then
response.write (alert)
End IF%>