home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML in Action / Dynamicke-HTML-v-akci-covermount.bin / XML / ARTICLES / XMLSOURCE0798.ZIP / postCust.asp < prev   
Encoding:
Text File  |  1998-10-24  |  1.1 KB  |  41 lines
  1. <%@LANGUAGE=VBScript%>
  2. <%
  3. XMLSTRING = Request.Form("postInput").item
  4. Set NEWCUSTINFO = Server.CreateObject("Microsoft.XMLDOM")
  5. NEWCUSTINFO.loadXML(XMLSTRING)
  6. Set CUSTLIST = Server.CreateObject("Microsoft.XMLDOM")
  7. CUSTLIST.load(Server.MapPath("customers.xml"))
  8. If (XMLSTRING <> "") Then
  9.  Set CUSTROOT = CUSTLIST.documentElement
  10.  Set CUSTOMERS = CUSTROOT.childNodes
  11.  Set NEWCUSTROOT = NEWCUSTINFO.documentElement
  12.  For I=0 To CUSTOMERS.length - 1
  13.   If (CUSTOMERS.item(I).childNodes.item(0).text = NEWCUSTROOT.childNodes.item(0).text) Then
  14.    CUSTROOT.removeChild(CUSTOMERS.item(I))
  15.    Exit For
  16.   End If
  17.  Next
  18.  CUSTROOT.appendChild(NEWCUSTROOT)
  19.  SAVEDXML = CUSTROOT.xml
  20.  Set FS = CreateObject("Scripting.FileSystemObject")
  21.  Set CUSTFILE = FS.CreateTextFile(Server.MapPath("customers.xml"),True)
  22.  CUSTFILE.WriteLine(SAVEDXML)  
  23.  CUSTFILE.Close
  24. End If
  25. %>
  26. <HTML>
  27. <BODY>
  28. <FORM NAME=postForm METHOD=POST ACTION="postCust.asp">
  29. <INPUT TYPE=HIDDEN NAME=postInput>
  30. </FORM>
  31. <XML ID="template">
  32.  <customer>
  33.   <name/>
  34.   <relation/>
  35.   <class/>
  36.  </customer>
  37. </XML>
  38. </BODY>
  39. </HTML>
  40.  
  41.