Send data med asp til xml dokument

bliver gemt ? altså skal filen gemmes eller bare vises ?

Du skal have fat i XML DOM, med den kan du åbne, rette og gemme XML dokumenter. Læs mere her...

http://msdn.microsoft.com/xml/xmlguide/dom-guide-document.asp

Ja det skal gemmes

fik du ikke noget ud af linket?

Ved det ik lige endnu, jeg er ved at lægge et nyt gulv, på mit kontor, men kunne du ikke lave det færdigt, du kan da godt få mere end 200 point, hvis du vil have det

ehh, nej nej. 200 er allerede for meget. Jeg har jo ikke lavet noget endnu. Vil du gerne have mig til det?

her er en stump asp der virker......

<%@ Language=VBScript %>
<%

    if not isempty(Request.Form(\"Submit\")) then
        Dim xmldoc
        Set xmldoc = CreateObject(\"Microsoft.XMLDOM\")

        xmldoc.load(Server.MapPath(\"mystore.xml\"))
       
        \'Set root to the XML document\'s root element, news:
        Set root = xmldoc.documentElement
        \'Walk from the root to each of its child nodes:
        For Each child In root.childNodes
          if child.tagName = \"titel\" then
            child.text = Request.Form(\"titel\")
          elseif child.tagName = \"nyheden\" then
            child.text = Request.Form(\"nyheden\")
          elseif child.tagName = \"dato\" then
            child.text = Now
          end if   
        Next   
       
        xmldoc.save(Server.MapPath(\"mystore.xml\"))
    end if
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<form name=\"form1\" method=\"post\" action=\"\">
<p>   
<input type=\"text\" name=\"titel\">
<BR>
<textarea name=\"nyheden\" cols=\"50\" rows=\"5\">
</textarea> <BR>  </p>
 
<p><input type=\"submit\" name=\"Submit\" value=\"Send\">  
</p> </form>
</BODY>
</HTML>



den gemmer det indtastede i mystore.xml i samme dir som ASP file ligger i. mystore.xml ser således ud....(indeholder mine testdata)

<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
<news>
    <titel>Nyhed</titel>
    <dato>17-02-2001 16:03:38</dato>
    <nyheden>Dette er en nyhed..</nyheden>
</news>


Internet useren på serveren skal naturligvis have skriverettigheder til det sted hvor nyheden skal ligge. Eksemplet giver ikke meget mening hvis ikke du bruger create node til at lave nye nodes til at gemme det indtastede i....

prøv det på http://dev.jdn.dk/xml/storexml.asp

jeg udvider lige så det appender den nye nyhed til xml dokumentet i stedet...

Jeg kan ikke rigtig få det til at virke.
Det skal lave nye nodes

Check again ;-) på URL\'en...

her er koden til det....

<%@ Language=VBScript %>
<%
   
    if not isempty(Request.Form(\"a\")) then
        Dim xmldoc
        Set xmldoc = CreateObject(\"Microsoft.XMLDOM\")

        xmldoc.load(Server.MapPath(\"mystore.xml\"))


        if Request.Form(\"a\") = \"submit\" then

            \'Set root to the XML document\'s root element, news:
            Set root = xmldoc.documentElement
           
            set last = root.childNodes.item( root.childNodes.length - 1 )
       
            set clone = last.cloneNode( true )   

            For Each child In clone.childNodes
                if child.tagName = \"titel\" then
                    child.text = Request.Form(\"titel\")
                elseif child.tagName = \"dato\" then       
                    child.text = Now
                elseif child.tagName = \"nyheden\" then       
                    child.text = Request.Form(\"nyheden\")
                end if   
            Next   

            root.appendChild( clone )

    \'        For Each child In root.childNodes
    \'          Response.Write( child.tagname & \" - \" & child.text & \"<br>\" )   
    \'        Next   

            xmldoc.save(Server.MapPath(\"mystore.xml\"))

        elseif Request.Form(\"a\") = \"show\" then

       
            \'Set root to the XML document\'s root element, news:
            Set root = xmldoc.documentElement
            \'Walk from the root to each of its child nodes:
            For Each child In root.childNodes
              Response.Write( child.tagname & \" - \" & child.text & \"<br>\" )   
            Next   
        end if
    end if
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<form name=\"form1\" method=\"post\" action=\"\">
<input type=hidden name=a value=\"submit\">
<table>
<tr>
  <td>   
    Titel på nyhed
  </td> 
  <td>   
    <input type=\"text\" name=\"titel\">
  </td> 
</tr>
<tr>
  <td>   
    Selve nyheden
  </td> 
  <td>   
    <textarea name=\"nyheden\" cols=\"50\" rows=\"5\">
    </textarea> <BR>  </p>
  </td> 
</tr>
 
<tr>
  <td>   
    <input type=\"submit\" name=\"Submit\" value=\"Send\" onclick=\"java script:document.form1.a.value=\'submit\'\">
  </td> 
  <td>   
    <input type=\"submit\" name=\"Vis\" value=\"Vis nyheder\" onclick=\"java script:document.form1.a.value=\'show\'\"> <a href=\"mystore.xml\">xmldoc</a>
  </td> 
</tr>
</table>
</form>
</BODY>
</HTML>

Så virker det, mange tak

--
Michael

no prob....nu ender det jo nok med jeg går helt amok i XML.....*G*