<% @LANGUAGE = VBScript %> <% Dim XMLDoc, rootNode Set fs=Server.CreateObject("Scripting.FileSystemObject") Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") Set rootNode = XMLDoc.CreateElement("array") XMLDoc.AppendChild(rootNode) strTitle = Request.form("title") Set TitleItem = XMLDoc.CreateElement("title") TitleItem.Text = strTitle rootNode.AppendChild(TitleItem) Id = Server.UrlEncode(strTitle) ' get Name strName = Request.form("name") Set NameItem = XMLDoc.CreateElement("name") NameItem.Text = strName rootNode.AppendChild(NameItem) ' get email strEmail = Request.form("email") Set EmailItem = XMLDoc.CreateElement("email") EmailItem.Text = strEmail rootNode.AppendChild(EmailItem) ' get homepage strHomepage = Request.form("homepage") Set HomepageItem = XMLDoc.CreateElement("homepage") HomepageItem.Text = strHomepage rootNode.AppendChild(HomepageItem) ' get part0 (prolog) strPart0 = Request.form("part0") Set Part0Item = XMLDoc.CreateElement("part0") Part0Item.Text = strPart0 rootNode.AppendChild(Part0Item) ' get part1 strPart1 = Request.form("part1") Set Part1Item = XMLDoc.CreateElement("part1") Part1Item.Text = strPart1 rootNode.AppendChild(Part1Item) ' get part2 strPart2 = Request.form("part2") Set Part2Item = XMLDoc.CreateElement("part2") Part2Item.Text = strPart2 rootNode.AppendChild(Part2Item) ' get part3 strPart3 = Request.form("part3") Set Part3Item = XMLDoc.CreateElement("part3") Part3Item.Text = strPart3 rootNode.AppendChild(Part3Item) ' get part4 strPart4 = Request.form("part4") Set Part4Item = XMLDoc.CreateElement("part4") Part4Item.Text = strPart4 rootNode.AppendChild(Part4Item) ' get part5 (epilog) strPart5 = Request.form("part5") Set Part5Item = XMLDoc.CreateElement("part5") Part5Item.Text = strPart5 rootNode.AppendChild(Part5Item) %>

<% response.write(strTitle) %>

By <% response.write(strName) %>

<% response.write(strHomepage) %>

<% response.write(strPart0) %>

<% response.write(strPart1) %>

<% response.write(strPart2) %>

<% response.write(strPart3) %>

<% response.write(strPart4) %>

<% response.write(strPart5) %>

List all stories

english/deutsch