forked from extern/egroupware
15 lines
363 B
Plaintext
15 lines
363 B
Plaintext
|
<?xml version="1.0"?>
|
||
|
|
<%
|
||
|
|
Response.ContentType="text/xml"
|
||
|
|
|
||
|
|
Dim url_id
|
||
|
|
Dim intCurrPos
|
||
|
|
url_var=request.querystring("id")
|
||
|
|
|
||
|
|
Response.Write "<tree id='"+url_var+"'>"
|
||
|
|
For intCurrPos = 0 To 4
|
||
|
|
Response.Write "<item child='1' id='"+url_var+CStr(intCurrPos)+"' text='Item "+url_var+"-"+CStr(intCurrPos)+"'></item>"
|
||
|
|
Next
|
||
|
|
Response.Write "</tree>"
|
||
|
|
%>
|