Discussion :

[wanou44]

Bonjour à tous,

J'ai créé une page ASP qui liste les informations d'une table Access.
Cette page traite les informations, fait des calculs et affiche les résultats.

J'aimerais grâce à un "input" ou autre présent sur ma page ASP, envoyer directement ces résultats sous format XML à une boite mail.
Le problème c'est que je suis très restreint côté serveur : je suis autorisé à écrire dans certains dossiers mais je n'ai pas la main dessus ; et je n'ai aucune connaissance en XML.

Pouvez-vous m'aider s'il vous plait ?

J'ai pensé à deux solutions : soit les résultats, je les enregistre dans une autre table Access et le "input" me dirigera vers une page de traitement ; soit je créé le XML en même temps que les résultats s'affichent et le "input" servira juste à envoyer le XML ????!!!!

[wanou44]

Je viens d'essayer un bout de code que j'ai trouvé sur Internet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<%
strdblocation = Server.MapPath("../Database/resa.mdb")
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strdblocation & ";")
Set rs=Server.createobject("ADODB.Recordset")
strdbsql = "SELECT * FROM mef_entretiens"
Set rs = objConnection.Execute(strdbsql)
 
RS.save Server.MapPath("essai.xml"), 1
   RS.close
   set RS = nothing
 
   objConnection.close
   set objConnection = nothing
%>

Le XML est bien généré et stocké sur le serveur.
Par contre, comme le fichier doit être ré-écrit tous les jours, quand j'essaye une deuxième fois, il me dit que le fichier existe déjà. Comment le supprimer si il existe avant de le créer ?

Et pour le XML, j'ai au début plein de lignes qui ne servent à rien. Comment les supprimer ?

[roro06]

Bonjour

Il "suffit" d'effacer le fichier avant de l'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim fso
set fso=server.createObject("scripting.fileSystemObject")
if fso.fileExists(server.mapPath("monfichier")) then fso.deleteFile(server.mapPath("monfichier"))
set fso=nothing

Les premières lignes ne servent pas a rien, c'est la description du shema de ton recordset

[wanou44]

Bonjour

Il "suffit" d'effacer le fichier avant de l'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim fso
set fso=server.createObject("scripting.fileSystemObject")
if fso.fileExists(server.mapPath("monfichier")) then fso.deleteFile(server.mapPath("monfichier"))
set fso=nothing

Les premières lignes ne servent pas a rien, c'est la description du shema de ton recordset

Merci ça fonctionne très bien mais le plus dur, c'est pour construire le XML.
Si vous pouviez m'aider ?!!

[roro06]

Ben pour construire le XML, il n'y a rien a faire, puisque la methode save le fait. Sinon, tu peux aller voir sur http://xml.developpez.com/, ainsi que sur les forums dédiés. Pleins pleins d'exemples pour se familiariser avec XML . Pas (très) complexe

[wanou44]

Merci je vais regarder ça.

Là je suis en train de regarder pour envoyer un mail avec une pièce jointe mais j'ai de gros problèmes. J'ai essayé avec CDO, Cdont, aspSmartMail mais à chaque fois, je n'ai pas le droit de créer l'objet.
Le serveur ne doit pas avoir les composants nécessaires et je n'ai pas la possibilité de les ajouter.

Y a-t-il une autre solution ?

[roro06]

C'est possible par telnet. Tu peux regarder ici ou là :