<% okay = true title = "a" link = "Asf" description = "Asdfasdf" stringNuevo = vbCrLf & "" & vbCrLf & _ "" & vbCrLf & _ "" & link & "" & vbCrLf & _ "" & description & "" & vbCrLf & _ "" & vbCrLf & vbCrLf Set xmlObj = CreateObject("Microsoft.XMLDOM") Set xmlObj2 = CreateObject("Microsoft.XMLDOM") xmlObj.Async = False xmlObj.Load(Server.MapPath("data.xml")) xmlObj2.Async = False xmlObj2.LoadXML(stringNuevo) Set root = xmlObj.documentElement Set root2 = xmlObj2.documentElement root.appendChild(root2) xmlObj.Save(Server.MapPath("data.xml")) Set xmlObj = nothing Set xmlObj2 = nothing nombre = Request.Form("nombre") email = Request.Form("email") texto = Request.Form("texto") xmlDoc = "data.xml" xslDoc = "gbook.xsl" Set xmlObj = CreateObject("Microsoft.XMLDOM") xmlObj.Async = False xmlObj.Load(Server.MapPath(xmlDoc)) Set xslObj = CreateObject("Microsoft.XMLDOM") xslObj.Async = False xslObj.Load(Server.MapPath(xslDoc)) Response.Write(xmlObj.transformNode(xslObj)) Set xmlObj = nothing Set xslObj = nothing %>