XML Post

hej...

du kan forsøge at få lidt inspiration fra dette her (har bare lige losset lidt forskellige ting sammen) :o):

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<FORM ACTION="" METHOD="POST">
    <INPUT TYPE="TEXT" NAME="string1" VALUE="string1"><br>
    <INPUT TYPE="TEXT" NAME="string2" VALUE="string2"><br>
    <INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="SUBMIT"><br>
</FORM>
<%
    dim xmldoc, bagitems
   
    function loadxmlbag()
        'tjekker og loader XML alt efter om det findes i session variablen...
        set xmldoc = server.createobject("microsoft.xmldom")
       
        if isempty(session("bagitems")) = false AND Len(session("bagitems")) > 0 then
            xmldoc.loadxml Cstr(session("bagitems"))
            set bagitems = xmldoc.documentelement
        else
            set bagitems = xmldoc.createelement("bagitems")
            set xmldoc.documentelement=bagitems
        end if
       
        set loadxmlbag = bagitems
    end function

    sub addtoXML(sessionID, string1, string2)

        'tjek om string eksisterer
        set nodefind = bagitems.selectnodes("strings[@sessionID=""" & sessionID & """]")

        if not nodefind.length > 0 then
            set product = xmldoc.createelement("strings")
           
            set attr = xmldoc.createattribute("sessionID")
            attr.text = Server.HTMLEncode(sessionID)
            product.attributes.setnameditem(attr)
           
            set attr = xmldoc.createattribute("string1")
            attr.text = Server.HTMLEncode(string1)
            product.attributes.setnameditem(attr)
           
            set attr = xmldoc.createattribute("string2")
            attr.text = server.HTMLEncode(string2)
            product.attributes.setnameditem(attr)
            bagitems.appendchild(product)
        end if

    end sub 
   
    'load XML
    set bagitems = loadxmlbag()
   
    'put strings i XML
    call addtoxml(session.SessionID, Request.Form("string1"), Request.Form("string2"))

    'udskriv hvad der er skrevet i XML'en
    for each item in bagitems.childnodes
        Response.write item.getattribute("sessionID") & " "
        Response.write item.getattribute("string1") & " "
        Response.write item.getattribute("string2") & "<br>"
    next

session("bagitems") = bagitems.xml
session.Abandon
%>

</BODY>
</HTML>

/hiks