Créer un fichier TXT en ASP

RANDOMIZE TIMER

'permet de gérérer le nom du fichier aléatoirement
fich = cstr(int(rnd*1000000))&"_"&cstr(int(rnd*1000000))&".txt"

'Objet FSO pour la création du fichier pour interface concours
set objfs=server.createobject("Scripting.FileSystemObject")

set objfich=objfs.CreateTextFile(server.mappath("/formulaires")&"/"&fich,1)

objfich.writeline("<?xml version=""1.0"" encoding=""ISO-8859-1"" standalones=""yes""?>")
objfich.writeline("<DEMANDE>")
objfich.writeline(" <DCREATION>"& date() & "</DCREATION>")
objfich.writeline(" <NOM>"&doubleQuote(PostNom)&"</NOM>")
objfich.writeline(" <PRENOM>"&doubleQuote(PostPre)&"</PRENOM>")
objfich.writeline(" <QUALITE>" & doubleQuote(UserCivil) & "</QUALITE>")
objfich.writeline(" <ADRESSE_1>"&doubleQuote(PostAdrs)&"</ADRESSE_1>")
objfich.writeline(" <ADRESSE_2></ADRESSE_2>")
objfich.writeline(" <CODEPOSTAL>"&doubleQuote(PostCp)&"</CODEPOSTAL>")
objfich.writeline(" <VILLE>"&doubleQuote(PostVille)&"</VILLE>")
objfich.writeline(" <PAYS></PAYS>")
objfich.writeline(" <DATENAISSANCE></DATENAISSANCE>")
objfich.writeline(" <TEL>"&doubleQuote(PostTel)&"</TEL>")
objfich.writeline(" <PORTABLE></PORTABLE>")
objfich.writeline(" <EMAIL>"&doubleQuote(PostMail)&"</EMAIL>")
objfich.writeline(" <INFOS>")
objfich.writeline(" <INFO>"&doubleQuote(PostFonction)&"</INFO>")
objfich.writeline(" <INFO>"& doubleQuote(PostDemande) & "</INFO>")
objfich.writeline(" <INFO>"&doubleQuote(PostSoc)& "</INFO>")
objfich.writeline(" </INFOS>")
objfich.writeline("</DEMANDE>")

objfich.close
set objfich=nothing
set objfs=nothing

  Internet
  Extranet
  Intranet

  Développement
 - Scripts Asp
 - Script PHP
 - Script CSS 

  Logiciels

  Articles

LOI n°2004-575 du 21 juin 2004