Récupérer toutes les valeurs d'un formulaire en 13 lignes

Commenter

Contenu du snippet

Bonjour à tous,
Je ne sais pas si ce code existe déjà mais je crois que j'en ai eu marre de le chercher à chaque fois alors le voici:
Il permet de récupérer tous les champs d'un formulaire et de le traiter avec les fameux replace(...) qui prends a chaque fois plusieurs ligne
Cet exemple est pour une méthode POST mais il marce aussi pour une méthode GET
Il faut suffira de changer la ligne 2 par For each meschamps in request.querystring ...
Cordialement !

Source / Exemple : 


Dim recupV : meschamps="" : e=0
	For each meschamps in request.form	
	Recup=Recup&meschamps&"@@@"
	next	
	recupV=SPLIT(LEFT(recup,len(recup)-3),"@@@")
	For each recup in recupV	
	recupV(e)=request(recupV(e))
	If recupV(e)<>"" then
	recupV(e)=Replace(recupV(e),"'","''")
	End if
	response.write Recup&"="&recupV(e)&"<br>"
	e=e+1
	Next

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_totolehero)