ECRIRE DANS UN FICHIER APRÈS AVOIR VÉRIFIÉ SA PRÉSENCE

<%
	Dim Titre
	Dim FSO 
	Dim inF 
	Dim Contenu 
	Dim fichier 
	Dim repertoire 
	Dim chemin_fichier
	dim cheminVirtuel
	dim cheminPhysique
 		
	titre = "ceci est le titre"
	Response.Write Titre	'Pas besoin de mettre les parenthèses quand il s'agit d'une variable ASP
	contenu = "ceci est le contenu"
	Response.Write Contenu	'même chose qu'au dessus
	
	Set fso = Server.CreateObject("Scripting.FileSystemObject")	'on instancie l'objet que l'on va utiliser	
'------------------------------------------------------------------------------------
'----- Ce bordel sert à récupérer le chemin physique du fichier.---------
'-----      Une fois qu'on l'a, on a plus à se casser le trognon	   ---------
'-----       La méthode peut paraître un peu longue mais elle      ----------
'----- fonctionne pour toute manipulation de fichiers                ----------
'------------------------------------------------------------------------------------

	cheminVirtuel = Request.ServerVariables("PATH_INFO")
	cheminPhysique = Server.Mappath(cheminVirtuel)		' à ce stade, on a le chemin physique de la page affichée.
	chemin = Left(cheminPhysique,inStrRev(cheminPhysique,"\")-1)	' on veut juste récupérer les informations du répertoire
	
	fichier = "results.txt" 
	repertoire = "\dossier\" 
	chemin_fichier = chemin & repertoire & fichier 			'on obtient le chemin d'accès en dur
		
	if fso.FileExists(chemin_fichier) then				'on vérifie la présence du fichier
		'Initialise le fichier à ouvrir avec son chemin d'accès
		Set inF = fso.OpenTextFile(chemin_fichier,8,True)		'Le fichier existe. On l'ouvre
	else
		'Initialise le fichier à ouvrir avec son chemin d'accès
		Set inF = fso.CreateTextFile(chemin_fichier,True)	'il n'existe pas et on le crée
	end if

	'ecriture des informations utilisateur
	inF.Write CStr(contenu)	'ou writeLine
	inF.close	

	'Libération de la mémoire côté serveur
	Set fso = Nothing		
%>