Discussion :

[vermine]

La FAQ ASP a été mise à jour avec l'ajout de questions/réponses.

Elle est désormais disponible à cette adresse : http://asp.developpez.com/faq/

Je vous rappelle qu'il est très fortement conseillé de la consulter avant de poser une question sur ce forum.

Vous êtes également invités à y participer en postant vos questions/réponses (correctement formulées) à la suite de ce post.

Merci

[J1]

Je viens de parcourir cette FAQ. Tout d'abord, un grand merci à ceux qui l'ont écrite !
Ensuite, j'ai 2 petites questions à son sujet.

La première concerne http://asp.developpez.com/faq/?page=...ONNEES_eof_bof
L'ouverture d'un recordset se fait toujours au niveau de son premier enregistrement, non ? Dans ce cas, ne peut-on pas se contenter de tester la propriété EOF du recordset pour vérifier qu'il est vide ? (oups, je sens que ça, c'est une question bête )

Ma deuxième question concerne http://asp.developpez.com/faq/?page=..._conversion_fr
La fonction Pad est-elle une fonction intégrée de VBScript (je n'arrive pas à la trouver dans l'aide) ou est-ce une fonction créée par l'auteur ?

Merci pour vos lumières.

[totoche]

Question comment inserer un noeud xml à un endroit précis (selectsingleNode & InsertBefore)
fichier frais.xml exemple:

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
16
17
18
19
20
21
22
23
24
25
26
 
<?xml version="1.0" encoding="UTF-8"?>
<FRAIS>
    <SALARIE NOM="TOTO">
        <PRENOM>Jean</PRENOM>
        <MOIS NOM="OCTOBRE" NUM="10" COMPTABILISER="N">
        <EVENEMENT NUM="1">
        <JOUR>5</JOUR>
        <OBJET>Mission A</OBJET>
        <LIEU>PARIS</LIEU>
        <KMS>10</KMS>
        <MONTANTKMS>25</MONTANTKMS>
        <AUTRES>Autoroute</AUTRES>
        <MONTANTDEP>30</MONTANTDEP>
        </EVENEMENT>
                <EVENEMENT NUM="2">
        <JOUR>5</JOUR>
        <OBJET>Mission B</OBJET>
        <LIEU>PARIS</LIEU>
        <KMS>50</KMS>
        <MONTANTKMS>100</MONTANTKMS>
        <AUTRES>Autoroute</AUTRES>
        <MONTANTDEP>70</MONTANTDEP>
        </EVENEMENT>
        </MOIS>
</FRAIS>

le fichier xml se décline SALARIE/MOIS/EVENEMENT

ASP

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
<%
 
Set objDom = Server.createObject("MSXML2.DOmDocument.4.0")
 
fichier = Server.MapPath("Frais.xml")
    if (objDom.load(fichier)) then
    set objNode = objDom.selectSingleNode("//SALARIE[@RUBRIQUE='"&request.form("SALARIE")&"']/MOIS[@NUM='"&request.form("Mois")&"']")
    set NewNode = objDom.createElement("EVENEMENT")
    NewNode.setAttribute "NUM", request.form("numEv")
 
    '***TAB RECUPERATION VALEUR DU FORMULAIRE'*********
             '1 Dimension nom de la balise XML
             '2 Dimension valeur du request
            Dim TabXML(6,1)
            TabXML(0,0) ="JOUR"
            TabXML(0,1) =request.form("Jour")
            '----------------------------------------
            TabXML(1,0) ="OBJET"
            TabXML(1,1) =request.form("oBJET")
            '----------------------------------------
            TabXML(2,0) ="LIEU"
            TabXML(2,1) =request.form("lieuDep") 
            '----------------------------------------
            TabXML(3,0) ="KMS"
            TabXML(3,1) =request.form("KMS")
            '----------------------------------------
            TabXML(4,0) ="MontantKMS"
            TabXML(4,1) =request.form("MONTANTKMS")
            '----------------------------------------
            TabXML(5,0) ="AUTRES"
            TabXML(5,1) =request.form("AUTRES")
            '----------------------------------------
            TabXML(6,0) ="MONTANTDEP"
            TabXML(6,1) =request.form("MONTANTDEP")
            '****************************************
            FOR i=0 TO UBOUND(TabXML)
            set newElement = objDom.createElement(TabXML(i,0))
            newnode.appendChild newElement
                                      Set newtext = objDom.createTextNode(TabXML(i,1))
 
            newElement.appendChild newtext    
            objNode.InsertBefore NewNode, objNode.lastChild
            objDom.save(Server.MapPath("Frais.xml"))
 
        END IF
 
%>

Question comment supprimer un noeud xml à un endroit précis (selectsingleNode & parentNode)

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
16
17
 
<%Set objDom = Server.createObject("MSXML2.DOmDocument.4.0")
 
 
fichier = Server.MapPath("Frais.xml")
if (objDom.load(fichier)) then
 
set objNode = objDom.selectSingleNode("//SALARIE[@NOM='"&request.form("Salarie")&"']/MOIS[@NUM='"&request.form("Mois")&"']/EVENEMENT[@NUM='"&request.form("itemEVE")&"']")
 
 
Set ParentNodeDel = objNode.parentNode
ParentNodeDel.removeChild(objNode)
 
objDom.save(Server.MapPath("Frais.xml"))
 
END IF
%>

Si ça peut aider