git.infodrom.org Git - infodrom/rico3/blob - examples/asp/CustTree.asp

   1 <%@ LANGUAGE="VBSCRIPT" %>\r
   2 <!-- #INCLUDE FILE = "dbConnect.asp" --> \r
   3 <!-- #INCLUDE FILE = "../../plugins/asp/ricoResponse.vbs" --> \r
   4 <%\r
   5 dim id,parent,oXmlResp\r
   6 \r
   7 id=trim(Request.QueryString("id"))\r
   8 parent=trim(Request.QueryString("Parent"))\r
   9 response.clear\r
  10 Response.CacheControl = "no-cache"\r
  11 Response.AddHeader "Pragma", "no-cache"\r
  12 Response.Expires = -1\r
  13 Response.ContentType="text/xml"\r
  14 Response.write "<?xml version='1.0' encoding='iso-8859-1'?>" & vbLf\r
  15 response.write vbLf & "<ajax-response><response type='object' id='" & id & "_updater'>"\r
  16 \r
  17 if id="" then\r
  18   response.write vbLf & "<rows update_ui='false' /><error>"\r
  19   response.write vbLf & "No ID provided!"\r
  20   response.write vbLf & "</error>"\r
  21 elseif not OpenDB then\r
  22   response.write vbLf & "<rows update_ui='false' /><error>"\r
  23   response.write vbLf & server.htmlencode(oDB.LastErrorMsg)\r
  24   response.write vbLf & "</error>"\r
  25 else\r
  26   oDB.DisplayErrors=false\r
  27   oDB.ErrMsgFmt="MULTILINE"\r
  28   set oXmlResp=new ricoXmlResponse\r
  29 \r
  30   response.write vbLf & "<rows update_ui='true' offset='0'>"\r
  31   if parent <> "" then\r
  32     oXmlResp.Query2xmlRaw "SELECT '" & parent & "',CustomerID,CompanyName,'L',1 FROM customers where CompanyName like '" & parent & "%'",0,99\r
  33   else\r
  34     oXmlResp.WriteTreeRow "","root","Customer names starting with...","C",0\r
  35     oXmlResp.Query2xmlRaw "SELECT distinct 'root',left(CompanyName,1),left(CompanyName,1),'C',0 FROM customers",0,99\r
  36   end if\r
  37   response.write vbLf & "</rows>"\r
  38 \r
  39   if not IsEmpty(oDB.LastErrorMsg) then\r
  40     response.write vbLf & "<error>"\r
  41     response.write vbLf & server.htmlencode(oDB.LastErrorMsg)\r
  42     response.write vbLf & "</error>"\r
  43   end if\r
  44   set oXmlResp=Nothing\r
  45 end if\r
  46 CloseApp\r
  47 response.write vbLf & "</response></ajax-response>"\r
  48 \r
  49 %>