[PHP]
<?xml version="1.0" ?>
<csp:class description="Demo of displaying result of an SQL Query as XML.">
<script language=Cache method=OnPreHTTP arguments="" returntype=%Boolean>
// Initialize variable for column names
New cols
// Force the content-type of the reponse to text/xml
Set %response.ContentType="text/xml"
Quit 1
</script>
<SCRIPT LANGUAGE=SQL NAME=query P1=#($get(%request.Data(" 1",1),"A"))# P2=#($get(%request.Data(" 2",1),"B"))#>
#(%request.Get("QUERY","SELECT Name FROM Sample.Person"))#
</SCRIPT>
<QueryResult>
<SQL>#(..EscapeHTML($get(%request.Data("QUERY",1),"SELECT Name FROM Sample.Person")))#</SQL>
<Result>
<script language="cache" runat="server">
New colnames
For col=1:1:query.GetColumnCount() {
Set colnames(col)=query.GetColumnHeader(col)
}
</script>
<CSP:WHILE COUNTER=row CONDITION=query.Next()>
<Row>
<CSP:WHILE COUNTER=col CONDITION='(col<query.GetColumnCount())'>
<#(colnames(col))#>#(query.GetData(col))#</#(colnames(col))#>
</CSP:WHILE>
</Row>
</CSP:WHILE>
</Result>
</QueryResult> [/PHP] |