% 'Récupération des départements 'function SCSearch_SortSearch(strEIDSort,strEIDSet,strXMLResultSetSRC,strKey1,strKey2,strKey3,strKey4,strKey5,lStart,lEnd) '****************************************** 'Fonction de récupération du tri '****************************************** function generateSelectTri(strTri,strEnsemble,strKey,strLibelle,strNameSelect) Dim objXmlDepartement dim objNode,objNodes,strXpath set objXmlDepartement = newXmlDOM() set objXmlDepartement = SCSearch_SortSearch(strTri,strEnsemble,strKey,"","","","","",-1,-1) 'response.Write server.HTMLEncode(objXmlDepartement.xml) 'responsE.end set objNodes = objXmlDepartement.selectNodes("//UID") response.Write "" end function '****************************************** %>
|