asked on

SelectNodes not work??

I have the following statement in an ASP page
Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).value = "./*[position() < " & iRecordsPerPage + 1 & " and position() > 0]"

What is happening when this code is being executed is that Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).value is evaluating to nothing.

Here is the XSL that is being referenced. You will notice about half way down it clearly says <xsl:for-each select="...">, so I don't know why the SelectNodes above is not working.

<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="urn:user-namespace-here" version="1.0">

<msxsl:script language="VBScript" implements-prefix="user">
 <![CDATA[
 function getName(node)
 getName = node.item(0).NodeName
 end function
 ]]>
</msxsl:script>

<xsl:template match="/">
 <xsl:apply-templates select="/*" />
</xsl:template>

<xsl:template match="/*">
 <table width="100%">
 <tr>
 <td align="left" valign="bottom">Page   of  . Total PODs:  </td>
 <td align="right">PODs Per Page: <input onblur="setRecordsPerPage()" id="RecordsPerPage" type="text" size="2"></input></td>
 <td align="right" valign="bottom">
 
 <input type="button" OnClick="FirstPage()"><xsl:attribute name="value"><![CDATA[|<]]></xsl:attribute></input>
 <input type="button" OnClick="PreviousPage(1)"><xsl:attribute name="value"><![CDATA[<]]></xsl:attribute></input>
 <input type="button" OnClick="NextPage(1)" value=">"></input>
 <input type="button" OnClick="LastPage()" value=">|"></input>
 
 </td>
 </tr>
 </table>

 <table width="100%" border="1" topmargin="0" leftmargin="0" cellpadding="0" cellspacing="0">
 <tr style="cursor: hand">
 <td bgcolor="#CCFFFF" onclick="Sort('DATEREQUESTED')">Requested On</td>
 <td bgcolor="#CCFFFF" onclick="Sort('PERSONREQUESTED')">Requested By</td>
 <td bgcolor="#CCFFFF" onclick="Sort('PLANTID')">Plant</td>
 <td bgcolor="#CCFFFF" onclick="Sort('SHIPDATE')">Shipped On</td>
 <td bgcolor="#CCFFFF" onclick="Sort('DELIVERYDATE')">Delivered On</td>
 <td bgcolor="#CCFFFF" onclick="Sort('ORDERNUMBER')">Order Number</td>
 <td bgcolor="#CCFFFF" onclick="Sort('SLIMVMT')">SLI MVMT #</td>
 <td bgcolor="#CCFFFF" onclick="Sort('CUSTNAME')">Customer</td>
 <td bgcolor="#CCFFFF" onclick="Sort('CITY')">City</td>
 <td bgcolor="#CCFFFF" onclick="Sort('STATE')">State</td>
 <td bgcolor="#CCFFCC" onclick="Sort('PERSONOBTAINING')">Obtained By</td>
 <td bgcolor="#CCFFCC" onclick="Sort('SCACID')">SCAC</td>
 <td bgcolor="#CCFFCC" onclick="Sort('FIRSTCARRIER')">First Carrier</td>
 <td bgcolor="#CCFFCC" onclick="Sort('SECONDCARRIER')">Second Carrier</td>
 <td bgcolor="#CCFFCC" onclick="Sort('THIRDCARRIER')">Third Carrier</td>
 <td bgcolor="#CCFFCC" onclick="Sort('PODRECEIVED')">POD Received</td>
 <td bgcolor="#CCFFCC" onclick="Sort('SLISHIPTOOSCDATE')">SLI Ship To OSC</td>
 <td onclick="Sort('OSCRECEIVEDDATE')">OSC Received</td>
 <td onclick="Sort('COMMENTS')">Comments</td>
 </tr>
 <xsl:for-each select="./*[position() < 6 and position() > 0]">
 <xsl:sort select="./*[1]" order="ascending" />
 <tr>
 <td bgcolor="CCFFFF"> <xsl:value-of select="DATEREQUESTED" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="PERSONREQUESTED" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="PLANTID" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="SHIPDATE" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="DELIVERYDATE" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="ORDERNUMBER" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="SLIMVMT" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="CUSTNAME" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="CITY" /></td>
 <td bgcolor="CCFFFF"> <xsl:value-of select="STATE" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="PERSONOBTAINING" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="SCACID" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="FIRSTCARRIER" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="SECONDCARRIER" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="THIRDCARRIER" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="PODRECEIVED" /></td>
 <td bgcolor="CCFFCC"> <xsl:value-of select="SLISHIPTOOSCDATE" /></td>
 <td> <xsl:value-of select="OSCRECEIVEDDATE" /></td>
 <td> <xsl:value-of select="COMMENTS" /></td>
 </tr>
 </xsl:for-each>
 </table>
</xsl:template>

</xsl:stylesheet>

dragosh

what do you want to do ??? retreive xsl:for-each nodes from this XSL document ???

dragosh

maybe if you can try something like

Style.XMLDocument.selectNodes("//xsl:for-each")

because "xsl:for-each" is the name of the tag, and "select" is an attribute.

and this will you will retreive the node and to access his attribute and set a value write like :

Style.XMLDocument.selectNodes("//xsl:for-each").setAttribute "select", <<value>>

rgds

Jagar

ASKER

I tried doing just //xsl:for-each and that returns as nothing as well. What I'm doing is that setting up paging of a table, so that it only display say 20 records per page and the user can move through the pages as needed.

Here is an example of the HTML page. Note you will need the latest version of the Microsoft XML parser for this work:
<HTML>
<Head>
<LINK rel="stylesheet" type="text/css" href="../General.css">
<Script language="vbscript">
option explicit
Dim iRecordsPerPage

iRecordsPerPage = 20

Function Window_Onload()

 ' Adjust the record level loop so that it displays our default number of records per page
 Style.XMLDocument.SelectNodes("//xsl:for-each")(1).value = "./*[position() < " & iRecordsPerPage + 1 & " and position() > 0]"

 transform()

 setPageCount()

End function

Function Transform()
 'Transform the xml document and stylesheet and display the # of records
 'per page
 DisplayArea.innerHTML = xmlMasterData.transformNode(Style.DocumentElement)

 RecordsPerPage.value = iRecordsPerPage
End function

Function redisplay(iPage)
 'Transform the document and display status info

 Dim sDisplay
 Dim iPageCount
 Dim iRecordCount

 'Store status information for use after
 'the transformation because it gets lost
 'in the transformation
 iPageCount = PageCount.innerHTML

 iRecordCount = RecordCount.innerHTML

 transform()

 'Display status information
 PageCount.innerHTML = iPageCount
 RecordCount.innerHTML = iRecordCount
 CurrentPage.innerHTML = iPage
end function

function Sort(sField)
 'Change the sort order and redisplay
 Dim sortField
 Dim sortOrderAttribute

 'Attach to the order-by attribute
 set sortField = Style.XMLDocument.selectSingleNode("//xsl:sort/@select")
 'Attach to the sort order attribute
 set sortOrderAttribute = Style.XMLDocument.selectSingleNode("//xsl:sort/@order")

 'If we are already sorting by sField
 if sortField.value = sField or sortField.value = "./*[0]" then
 'change the sort order
 if sortOrderAttribute.value = "descending" then
 sortOrderAttribute.value = "ascending"
 else
 sortOrderAttribute.value = "descending"
 end if
 else
 'sort ascending
 sortField.value = sField
 sortOrderAttribute.value = "ascending"
 end if

 set sortField = nothing
 set sortOrderAttribute = nothing

 redisplay(CurrentPage.innerHTML)
end function

function setRecordsPerPage()
 'Reset the number of records per page

 if isnumeric(RecordsPerPage.value) then
 iRecordsPerPage = cint(RecordsPerPage.value)
 window_onload
 end if
end function

function setPageCount()
 'Display page count status information
 Dim iTotalRecords

 PageCount.innerHTML = getNumberOfPages(iTotalRecords)

 RecordCount.innerHTML = iTotalRecords

 CurrentPage.innerHTML = 1
end function

function getNumberOfPages(iTotalRecords)
 'Calculate and return the total number of pages
 'and total number of records
 Dim iPages

 'Use the length property to get the record count
 iTotalRecords = xmlMasterData.XMLDocument.selectNodes("/*/*").length

 'Calculate the total number of pages
 iPages = iTotalRecords/iRecordsPerPage

 if instr(iPages, ".") > 0 then
 iPages = cint(left(iPages, instr(iPages, "."))) + 1
 end if

 getNumberOfPages = iPages
end function

function nextPage(iPage)
 Dim sDisplay
 Dim sDateRange

 'Only make changes if we aren't on the last page
 if cint(cstr(iPage) * iRecordsPerPage) < xmlMasterData.selectNodes("/*/*").length then
 iPage = cint(iPage) + 1
 'Set the new onClick event value for the previous page button
 Style.XMLDocument.selectNodes("//@OnClick")(1).value = "previousPage(" & iPage & ")"

 'Set the new onClick even value for the nextpage button
 Style.XMLDocument.selectNodes("//@OnClick")(2).value = "nextPage(" & iPage & ")"

 'Set the new values for the record level loop
 Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).value = "./*[position() <= " & (cstr(iPage) * iRecordsPerPage) & " and position() > " & (cint(iPage) - 1) * iRecordsPerPage & "]"

 redisplay(iPage)
 end if
end function

function previousPage(iPage)
 Dim sDisplay
 Dim sDateRange

 'If we aren't on the first page
 if iPage > 1 then
 iPage = cint(iPage) - 1

 'Set the new onClick event value for the previous page button
 Style.XMLDocument.selectNodes("//@OnClick")(1).value = "previousPage(" & iPage & ")"
 'Set the new onClick even value for the nextpage button
 Style.XMLDocument.selectNodes("//@OnClick")(2).value = "nextPage(" & iPage & ")"

 'Set the new values for the record level loop
 Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).value = "./*[position() <= " & (cstr(iPage) * iRecordsPerPage) & " and position() > " & (cint(iPage) - 1) * iRecordsPerPage & "]"

 redisplay(iPage)
 end if
end function

function FirstPage()
 'Set the new onClick event value for the previous page button
 Style.XMLDocument.selectNodes("//@OnClick")(1).value = "previousPage(1)"

 'Set the new onClick even value for the nextpage button
 Style.XMLDocument.selectNodes("//@OnClick")(2).value = "nextPage(1)"

 'Set the new values for the record level loop
 Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).value = "./*[position() < " & iRecordsPerPage + 1 & " and position() > 0]"

 transform()

 setPageCount()
end function

function LastPage()
 Dim iTotalPages
 Dim iTotalRecords

 'Calculate the number of pages
 iTotalPages = getNumberOfPages(iTotalRecords)

 'Call next page, passing the total pages minus 1
 nextPage(iTotalPages - 1)
end function

function EditPage(iPODID)
 'We can't let anybody edit these PODs
 EditPage = false
end function
</Script>
</Head>
<body>
<XML id='xmlMasterData'> <recordset><row><PODREQUESTID>17</PODREQUESTID><DATEREQUESTED>2001-06-14</DATEREQUESTED><PERSONREQUESTED>Paul Cavacas</PERSONREQUESTED><PLANTID>600</PLANTID><SHIPDATE>2000-11-28</SHIPDATE><DELIVERYDATE>2000-11-30</DELIVERYDATE><ORDERNUMBER>224983</ORDERNUMBER><SLIMVMT>AA20846</SLIMVMT><CUSTNAME>PUBLIX - BOYNTON BEACH</CUSTNAME><CITY>BOYNTON BEACH</CITY><STATE>FL</STATE><PERSONOBTAINING>Paul Cavacas</PERSONOBTAINING><SCACID>ANTT</SCACID><FIRSTCARRIER>2001-04-05</FIRSTCARRIER><PODRECEIVEDDATE>2001-04-08</PODRECEIVEDDATE><SLISHIPTOOSCDATE>2001-04-09</SLISHIPTOOSCDATE><OSCRECEIVEDDATE>2001-07-12</OSCRECEIVEDDATE><COMMENTS>Here are some comments.</COMMENTS></row><row><PODREQUESTID>18</PODREQUESTID><DATEREQUESTED>2001-06-15</DATEREQUESTED><PERSONREQUESTED>Paul Cavacas</PERSONREQUESTED><PLANTID>600</PLANTID><SHIPDATE>2000-12-01</SHIPDATE><DELIVERYDATE>2000-12-07</DELIVERYDATE><ORDERNUMBER>224982</ORDERNUMBER><SLIMVMT>AA35678</SLIMVMT><CUSTNAME>MCLANE</CUSTNAME><CITY>BROOKHAVEN</CITY><STATE>MS</STATE><PERSONOBTAINING>Paul Cavacas</PERSONOBTAINING><SCACID>CENF</SCACID><FIRSTCARRIER>2001-04-05</FIRSTCARRIER><SECONDCARRIER>2001-04-06</SECONDCARRIER><THIRDCARRIER>2001-04-07</THIRDCARRIER><PODRECEIVEDDATE>2001-04-08</PODRECEIVEDDATE><SLISHIPTOOSCDATE>2001-04-09</SLISHIPTOOSCDATE><OSCRECEIVEDDATE>2001-07-12</OSCRECEIVEDDATE><COMMENTS>Done</COMMENTS></row><row><PODREQUESTID>14</PODREQUESTID><DATEREQUESTED>2001-06-14</DATEREQUESTED><PERSONREQUESTED>Paul Cavacas</PERSONREQUESTED><PLANTID>743</PLANTID><SHIPDATE>2000-11-27</SHIPDATE><DELIVERYDATE>2000-11-28</DELIVERYDATE><ORDERNUMBER>224996</ORDERNUMBER><SLIMVMT>AA18866</SLIMVMT><CUSTNAME>COASTAL PACIFIC FOOD DISTRIBUTORS</CUSTNAME><CITY>STOCKTON</CITY><STATE>CA</STATE><PERSONOBTAINING></PERSONOBTAINING><SCACID>BSRK</SCACID><COMMENTS>Here are some comments.</COMMENTS></row><row><PODREQUESTID>15</PODREQUESTID><DATEREQUESTED>2001-06-14</DATEREQUESTED><PERSONREQUESTED>Paul Cavacas</PERSONREQUESTED><PLANTID>104</PLANTID><SHIPDATE>2000-11-20</SHIPDATE><ORDERNUMBER>224987</ORDERNUMBER><SLIMVMT></SLIMVMT><CUSTNAME>BIG Y FOODS INC</CUSTNAME><CITY>SPRINGFIELD</CITY><STATE>MA</STATE><PERSONOBTAINING>Paul Cavacas</PERSONOBTAINING><SCACID>NCLS</SCACID><FIRSTCARRIER>2001-04-05</FIRSTCARRIER><SECONDCARRIER>2001-04-06</SECONDCARRIER><PODRECEIVEDDATE>2001-04-08</PODRECEIVEDDATE><SLISHIPTOOSCDATE>2001-04-09</SLISHIPTOOSCDATE><OSCRECEIVEDDATE>2001-07-12</OSCRECEIVEDDATE></row><row><PODREQUESTID>16</PODREQUESTID><DATEREQUESTED>2001-06-14</DATEREQUESTED><PERSONREQUESTED>Paul Cavacas</PERSONREQUESTED><PLANTID>600</PLANTID><SHIPDATE>2000-11-25</SHIPDATE><ORDERNUMBER>224986</ORDERNUMBER><SLIMVMT>224986</SLIMVMT><CUSTNAME>THE HE BUTT GROC CO</CUSTNAME><CITY>SAN ANTONIO</CITY><STATE>TX</STATE><PERSONOBTAINING>Paul Cavacas</PERSONOBTAINING><SCACID>PIUP</SCACID><FIRSTCARRIER>2001-04-05</FIRSTCARRIER><SECONDCARRIER>2001-04-06</SECONDCARRIER><THIRDCARRIER>2001-04-07</THIRDCARRIER><PODRECEIVEDDATE>2001-04-08</PODRECEIVEDDATE><SLISHIPTOOSCDATE>2001-04-09</SLISHIPTOOSCDATE><COMMENTS>More Comments for a POD</COMMENTS></row></recordset>
</XML><XML id='Style' src='../XSLT/AllPODS.xslt'></XML> </body>
</HTML>

dragosh

hmm . i think a know a better solution .. don't modify your xsl , let it as it is .. your problem is to load only 20 nodes from your xml .. how do you do that ?

You have your XML and you want to select from it only 20 records, "row" elements.

let's say you have also a pointer = page number

make a select for "//row" and you will retreive all row nodes. after that you will select just the nodes you want like this :

Dim rowNode
Dim rowNodes
Dim newXMLString ' here you will find 20 row nodes
Dim i ' counter
Dim k ' counter for the 20 records
Dim pageNumber ' page number
Dim pagesize ' page size = 20

pagesize = 20
pagenumber = 3
i = 1
k = 0

'will have to step over 20*2 = 60 rows

Set rowNodes = <yourXMLObject>.selctNodes("//row")

newXMLString = "<recordset>"

For Each rowNode In rowNode
If i < pagesize*pagenumber Then
' do nothing
Else
k = k + 1
newXMLString = newXMLString & rowNode.xml
End If
i = i + 1
Next

newXMLString = newXMLString & "</recordset>"

and now in newXMLString string you have only 20 or less row

hope this will help

rgds

Jagar

ASKER

I would rather return the whole XML to the client and let them handle it the page instead of having to continue to hit the server for each page.

dragosh

and one more thing .. don't forget to test for
( K <= pagesize ) ... !!!!

dragosh

it's like when you are paging through a recordset ..

dragosh

regarding your code the function :

Function Window_Onload()

' Adjust the record level loop so that it displays our default number of records per page
Style.XMLDocument.SelectNodes("//xsl:for-each")(1).value = "./*[position() < " & iRecordsPerPage +
1 & " and position() > 0]"

transform()

setPageCount()

End function

you want to set the value for the "select" attribute . not like this , i told you :

Style.XMLDocument.selectNodes("//xsl:for-each").setAttribute "select", "./*[position() < " & iRecordsPerPage +
1 & " and position() > 0]"

Jagar

ASKER

Style.XMLDocument.selectNodes("//xsl:for-each").setAttribute "select", "./*[position() < " & iRecordsPerPage
+
1 & " and position() > 0]"

doesn't work. This is still not returning anything.

dragosh

I tried your search , like this :

Dim obj
Set obj = Server.CreateObject("MSXML2.DOMDocument")
obj.load Server.MapPath ("test.xsl")
Response.Write Server.HTMLEncode(obj.selectNodes("//xsl:for-each").item(0).xml)
Response.Write obj.selectNodes("//xsl:for-each").length

where test.xsl is your XSL document.
Results -> 1 node !!!!

try to verify the results of your search

Jagar

ASKER

I copied your example above and got the expected results. Now you try using the HTML page that I posted and the XSLT source that I posted and you will see that it doesn't work when I do it this way.

ASKER CERTIFIED SOLUTION

dragosh

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Jagar

ASKER

Thank You I've changed the rest of the code.

dragosh

thnaks for the points :)