Hvad går der galt her ?
Jeg har følgende kode:<% Response.Expires = 1 %>
<html>
<body>
<form method=\"POST\" action=\"login.asp\">
<div align=\"right\"><table width=\"20%\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr><!-- Row 1 -->
<td> <div align=\"right\"><a href=\"change.asp\">Skift password </a></div></td>
</tr>
<tr><!-- Row 2 -->
<td> <div align=\"right\"><input type=\"submit\" value=\"logaf\" name=\"logaf\"/></div>
</td>
</tr>
</table></div>
</form>
</body> <br/>
</html>
<%
if request.form(\"logaf\") =\"\" then
Dim search
sti = \"xml/\"
search = Request(\"search\")
\' Responde to request
\'Load the XML
set xml = Server.CreateObject(\"Microsoft.XMLDOM\")
xml.async = false
xml.load(Server.MapPath(\"Data\\\'\"&session(\"UserID\")&\".xml\"))
\'Load the XSL
set xsl = Server.CreateObject(\"Microsoft.XMLDOM\")
xsl.validateOnParse = false
xsl.async = false
xsl.load(Server.MapPath(\"test.xsl\"))
\'lav virtuel XML Search
Set selectedsubcat = xml.createElement(\"search\")
xml.childNodes.Item(1).appendChild selectedsubcat
xml.childNodes.Item(1).lastChild.Text = search
\'Transform the file
Response.Write(xml.transformNode(xsl))
else
session.abandon
end if
%>
får en fejl der hedder
Microsoft VBScript runtime error \'800a01a8\'
Object required: \'[object]\'
/wbl/search.asp, line 41
linie 41 er xml.childNodes.Item(1).appendChild selectedsubcat
