Caravan
Business Server>Examples>Date & Time Variables |
|
Creating and Accessing XML objects
|
This
example parses an xml file named companyinfo.xml stored
in template directory and displays its contents.
|
include system.html
var sql
var str
str(path)=system(Localpath)
str(path)+="\\template\\companyinfo.xml"
object cmp=str(path)
cmp(_node)="_next"
" "
loop a (cmp(company(00)))
if a(counter)=1
cmp(_node)="company"
"Company Name: ";cmp(name);" "
sql(comp)=cmp(_name)
loop b (cmp(employee(00)))
if b(counter)=1
cmp(_node)="employee"
" Employee Name: ";cmp(name);" "
" Designation: ";cmp(designation);" "
" Email: ";cmp(email);" "
" Phone: ";cmp(phone);" "
else
cmp(_node)="_next"
" Employee Name: ";cmp(name);" "
" Designation: ";cmp(designation);" "
" Email: ";cmp(email);" "
" Phone: ";cmp(phone);" "
endif
repeat b 100
cmp(_node)="_root"
cmp(_node)=sql(comp)
loop b (cmp(phone(00)))
if b(counter)=1
cmp(_node)="phone"
cmp(name);" "
else
cmp(_node)="_next"
cmp(name);" "
endif
repeat b 100
cmp(_node)="_root"
cmp(_node)=sql(comp)
else
cmp(_node)="_next"
"Company Name: ";cmp(name);" "
loop b (cmp(employee(00)))
if b(counter)=1
cmp(_node)="employee"
" Employee Name: ";cmp(name);" "
" Designation: ";cmp(designation);" "
" Email: ";cmp(email);" "
" Phone: ";cmp(phone);" "
else
cmp(_node)="_next"
" Employee Name: ";cmp(name);" "
" Designation: ";cmp(designation);" "
" Email: ";cmp(email);" "
" Phone: ";cmp(phone);" "
endif
repeat b 100
cmp(_node)="_root"
cmp(_node)=sql(comp)
loop b (cmp(phone(00)))
if b(counter)=1
cmp(_node)="phone"
cmp(name);" "
else
cmp(_node)="_next"
cmp(name);" "
endif
repeat b 100
cmp(_node)="_root"
cmp(_node)=sql(comp)
cmp(_node)="_next"
endif
" "
repeat a 100
|
|
|
|