[Sommaire] [Imprimer]

   1  <?xml version="1.0"?>
   2  <%
   3  Response.ContentType="text/xml"
   4  
   5  Dim url_id
   6  Dim intCurrPos
   7  url_var=request.querystring("id")
   8  
   9  Response.Write     "<tree id='"+url_var+"'>"
  10           For intCurrPos = 0 To 4
  11               Response.Write     "<item child='1' id='"+url_var+CStr(intCurrPos)+"' text='Item "+url_var+"-"+CStr(intCurrPos)+"'></item>"
  12           Next
  13  Response.Write     "</tree>"
  14  %>