I have the below form and I want the contents of the fields to be passed to
an ASP file which then writes them to an XML file. I've used a version of
this before, I then changed it but now it doesn't work. Any ideas?
new_user.html
==========
<html>
<head>
<title>New User</title>
<link href="mystyle.c ss" rel="stylesheet " type="text/css">
</head>
<body>
<form action="new_use r.asp" method="post" name="new_user_ form">
<table class = "one">
<tr>
<td>
<table class = "one">
<tr>
<td>Username: </td>
<td><input name="user" id="user" type="text" ></td>
</tr>
<tr>
<td>Password: </td>
<td><input name="pass" id="pass" type="text"></td>
</tr>
</table>
<p><input type="submit" name="Submit" value="Confirm Details"></p>
<p><a href="index.htm l">Return to Login Page</a></p>
</td>
</tr>
</table>
</form>
</body>
</html>
new_user.asp
=========
<%@ Language="VBScr ipt" %>
<%
dim objDom, fileExists, objFieldValue, objPI, nodes, path
Set objDom = server.CreateOb ject("Microsoft .XMLDOM")
objDom.preserve WhiteSpace = True
fileExists=objD om.Load(Server. MapPath("users. xml"))
If fileExists = True Then
Set objRoot = objDom.document Element
Else
Set objRoot = objDom.createEl ement("members" )
objDom.appendCh ild objRoot
End If
Set objRecord = objDom.createEl ement("member")
objRoot.appendC hild objRecord
Set objFieldValue = objDom.createEl ement("username ")
objFieldValue.T ext = Request.Form("u ser")
objRecord.appen dChild objFieldValue
Set objFieldValue = objDom.createEl ement("password ")
objFieldValue.T ext = Request.Form("p ass")
objRecord.appen dChild objFieldValue
set xmlDocument=Cre ateObject("MSXM L2.FreeThreaded DOMDocument")
xmlDocument.asy nc="false"
xmlDocument.loa d(Server.MapPat h("users.xml" ))
path = "members[user='" & lcase(Request.F orm("user")) & "']"
set nodes = xmlDocument.sel ectNodes(path)
If nodes.length = 0 Then
If fileExists = False Then
Set objPI=objDom.cr eateProcessingI nstruction("xml ", "version='1.0'" )
objDom.insertBe fore objPI, objDom.childNod es(0)
End If
Else
Response.Redire ct("error.html" )
End If
objDom.save(Ser ver.MapPath("us ers.xml"))
Response.Redire ct("success.htm l")
%>
%>
users.xml
======
<?xml version="1.0"?>
<members>
<member>
<username>thoma s</username>
<password>12345 6</password>
</member>
<member>
<username>marti n</username>
<password>11111 1</password>
</member>
<member>
<username>stuar t</username>
<password>65432 1</password>
</member>
</members>