- pour ne pas vous perdre, le but en asp est de passer des paramètre en les copiant dans un fichier TMP...
- voici juste en asp la fonction de copie du fichier sinon tout et dans le zip
-
- <%
- '**************************************
- '** Word2000 asp **
- '**************************************
-
-
- if request("Envoyer")="Envoyer" then
-
-
- nom = request("nom")
- prenom = request("prenom")
- adresse = request("adresse")
- telephone = request("telephone")
-
-
- cheminVirtuel = Request.ServerVariables("PATH_INFO")
- cheminPhysique = Server.MapPath(cheminVirtuel)
- chemin = Left(cheminPhysique,InStrRev(cheminPhysique,"\")-1)
-
- fichier_word = "monfichier.doc"
- fichier = "\imprime.txt"
- repertoire = ""
- chemin_fichier = chemin & repertoire& fichier
- chemin_fichier_word = chemin & repertoire& fichier
-
- ' bon commencon..le but c 'est d'inscrire les données dans un fichier text
- ' afin de pouvoir ensuite lire se fichier sous word
- ' et de recupèrer les valeurs
-
- Dim fso, MyFile
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set MyFile = fso.CreateTextFile(chemin_fichier,8,True)
-
- '** bon ben le truc standard pour ecrire dans un fichier
- MyFile.Write("Nom="&nom&"&prenom="&prenom&"&adresse="&adresse&"&telephone="&telephone&"&")
-
- MyFile.Close ' verifier bien que vous avez l'autorisation d'ecriture dans votre rep
-
-
- response.redirect (fichier_word) ' et on lance la macro word
-
- end if ' fin de l'action
- %>
pour ne pas vous perdre, le but en asp est de passer des paramètre en les copiant dans un fichier TMP...
voici juste en asp la fonction de copie du fichier sinon tout et dans le zip
<%
'**************************************
'** Word2000 asp **
'**************************************
if request("Envoyer")="Envoyer" then
nom = request("nom")
prenom = request("prenom")
adresse = request("adresse")
telephone = request("telephone")
cheminVirtuel = Request.ServerVariables("PATH_INFO")
cheminPhysique = Server.MapPath(cheminVirtuel)
chemin = Left(cheminPhysique,InStrRev(cheminPhysique,"\")-1)
fichier_word = "monfichier.doc"
fichier = "\imprime.txt"
repertoire = ""
chemin_fichier = chemin & repertoire& fichier
chemin_fichier_word = chemin & repertoire& fichier
' bon commencon..le but c 'est d'inscrire les données dans un fichier text
' afin de pouvoir ensuite lire se fichier sous word
' et de recupèrer les valeurs
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(chemin_fichier,8,True)
'** bon ben le truc standard pour ecrire dans un fichier
MyFile.Write("Nom="&nom&"&prenom="&prenom&"&adresse="&adresse&"&telephone="&telephone&"&")
MyFile.Close ' verifier bien que vous avez l'autorisation d'ecriture dans votre rep
response.redirect (fichier_word) ' et on lance la macro word
end if ' fin de l'action
%>