Please help, I'm going to cry soon

Howdy

I've been trying to get a grid to load for a few days now but something isn't working quite right. I've looked through all of the samples at one time or another and spent a few hours looking through forums but still am having no luck.

Here's my javascript

xmlDoc = new ActiveXObject("MSXML2.DomDocument");
xmlDoc.loadXML(result.raw.xml);
alert(xmlDoc.text); //looks good
var table = new Active.XML.Table;
table._ready = true; table.response(xmlDoc);
var obj = new Active.Controls.Grid;
obj.setDataModel(table);
document.write(obj);

All I get right now is [Object] on the screen. If anyone has any suggestions I'd be very grateful.

Anyone have any ideas? I'm still stuck. :(

Hi Franklin,

Have you tried:

table.setXML(xml);


...as per the example in /examples/grid/xml - data island.htm

Take a look at the example and modify it to suit your needs. Also, if you are just starting out using the grid why not download V2 and try it?

Cheers,
BT

Franklin,

there should be something with your XML structure. Here is slightly modified example (loading from disk) which works fine:

var xmlDoc = new ActiveXObject("MSXML2.DomDocument");
xmlDoc.load("list1.xml");
alert(xmlDoc.text);

var table = new Active.XML.Table;
table._ready = true;
table.response(xmlDoc);

var obj = new Active.Controls.Grid;
obj.setColumnCount(5);
obj.setDataModel(table);
document.write(obj);

Can anybody show an example of how to create the xml file from a recordset???

rstData.Save xml, adPersistXML

by saving it as a file or loading it from memory??

I can get a response.write on the rstdata result but can't seem to save the file.

rstData.Open strSQL, DataConn, adOpenForwardOnly, adLockReadOnly, adCmdText

Dim xml, xsl, targetDoc
Set xml = Server.CreateObject("MSXML2.DOMDocument")
Set xsl = Server.CreateObject("MSXML2.DOMDocument")
Set targetDoc=CreateObject("MSXML2.DOMDocument")
xml.async = False
xsl.async = False
rstData.Save xml, 1 'adPersistXML
xsl.load Server.MapPath("z.xsl")
Response.Write xml.transformNode(xsl)
'Response.End
'xml.save Server.MapPath("z.xml")
Set xsl = Nothing
Set xml = Nothing