1 <%@ Page Language="vb" Debug="true" %>
\r
2 <%@ Register TagPrefix="Rico" TagName="XmlWriter" Src="../../plugins/dotnet/ricoResponse.ascx" %>
\r
3 <%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>
\r
4 <My:dbLib id='app' runat='server' />
\r
6 <script runat="server">
\r
8 dim RequestId as string
\r
11 Sub Page_Load(Sender As object, e As EventArgs)
\r
12 Response.CacheControl = "no-cache"
\r
13 Response.AddHeader("Pragma", "no-cache")
\r
14 Response.Expires = -1
\r
15 Response.ContentType="text/xml"
\r
17 RequestId=trim(Request.QueryString("id"))
\r
18 parent=trim(Request.QueryString("Parent"))
\r
20 if RequestId="" then
\r
21 XmlObj.ErrorMsg="No ID provided!"
\r
22 elseif not app.OpenDB() then
\r
23 XmlObj.ErrorMsg=app.LastErrorMsg
\r
25 XmlObj.dbConnection=app.dbConnection
\r
26 XmlObj.dbDialect=app.dbDialect
\r
27 if parent <> "" then
\r
28 XmlObj.sqlText="SELECT '" & parent & "',CustomerID,CompanyName,'L',1 FROM customers where CompanyName like '" & parent & "%'"
\r
30 XmlObj.WriteTreeRow("","root","Customer names starting with...","C",0)
\r
31 XmlObj.sqlText="SELECT distinct 'root',left(CompanyName,1),left(CompanyName,1),'C',0 FROM customers"
\r
38 <Rico:XmlWriter id="XmlObj" runat="server"/>
\r