Le standard RTF permet de générer des documents Word à partir d'une page ASP sans qu'aucun composant MS Office ne soit installé sur le serveur (autrement dit, Microsoft Word ne doit pas nécessairement être présent sur le serveur). Le code suivant permet de créer un simple document Word avec les infos fichier, les entêtes et pieds de page ainsi qu'un simple texte avec un tableau. Vous devez être averti avant l'implémentation de ce code car la moindre ouverture ou fermeture de commande plante la page ASP sans aucune information. Aussi pour commencer faîtes juste un response.write de la variable SRTF afin de voir son contenu, avant de l'enregistrer.

Pour de plus amples informations sur le standard RTF rendez-vous sur cette page.
 

Nous vous recommandons également de lire les réactions de la communauté Internet à ce script : http://www.aspfr.com/code.aspx?ID=16630

Code source:

 1. Dim fso, MyFile,sRTF
2.
3. 'Creation du fichier pour le RTF
4. Set fso = CreateObject("Scripting.FileSystemObject")
5. Set MyFile = fso.CreateTextFile(Server.MapPath("document.doc"), True)
6.
7. ' Ecriture RTF : définition des styles
8. MyFile.WriteLine("{\rtf1\ansi\deff0")
9. sRTF = "{\fonttbl" &_
10. "{\f0\fnil\fprq2\fcharset0\fs20 Arial;}" &_
11. "}"
12. MyFile.WriteLine(sRTF)
13.
14. ' Infos Fichier
15. MyFile.WriteLine( "{\info" & _
16. "{\title Votre Titre }" & _
17. "{\subject Mon premier document}" & _
18. "{\author Zeb13}" & _
19. "{\operator RD medias}" & _
20. "}")
21.
22. ' Entêtes & Pieds de Page
23. MyFile.WriteLine( "{\header\pard\qc " &_
24. "{\fs30 ::: Zeb13 - RD medias :::\par} ") & _
25. "}"
26. MyFile.WriteLine( "{\footer\pard\qc\brdrt\brdrs\brdrw10\brsp100" & _
27. "\fs18 Page " & _
28. "{\field{\*\fldinst PAGE}{\fldrslt 1}} sur " & _
29. "{\field{\*\fldinst NUMPAGES}{\fldrslt 1}} \par}")
30.
31. ' Création du document ========================
32. ' le tableau
33. sRTF = "\par {"
34. sRTF = sRTF & "\trowd\cellx9000\pard\intbl \cell{\row}"
35. sRTF = sRTF & "\trowd\clbrdrb\brdrs\cellx9000\pard\intbl\b > Un titre dans un tableau \b0\cell{\row}"
36. sRTF = sRTF &"\trowd\cellx9000\pard\intbl "
37. sRTF = sRTF &"\bullet\~ Nom Prénom (par exemple) \par\plain\ql "
38. sRTF = sRTF &" \cell{\row}"
39. sRTF = sRTF &"}"
40. ' le texte
41. sRTF = sRTF & "\par {"
42. sRTF = sRTF &"Un simple texte dans votre document. \par"
43. sRTF = sRTF &"}"
44.
45. sRTF = sRTF &"\pagebb"
46. MyFile.WriteLine(sRTF)
47.
48. MyFile.WriteLine("}")
49.
50. ' Astuce pour lancer en auto le document créé, remplacez adressedevotresite
51. Response.Write "<META HTTP-EQUIV=""REFRESH"" Content=""0;URL=adressedevotresite/document.doc"">"

Référence:Le code source reproduit ci-dessus est extrait du site asp-php.net. http://www.aspfr.com/