home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 June / comonline0602.iso / software / golive5 / GoLive5_Tryout.exe / MM6.Cab / F447_ui5.asp.9EB922A0_9291_4FBD_A705_CEE569DE1C22 < prev    next >
Encoding:
Text File  |  2000-08-17  |  733 b   |  34 lines
  1. <%
  2.  
  3. '
  4. ' Support for Customizable UI for DynamicLink
  5. '
  6. ' COPYRIGHT (c) 2000 Adobe Systems Incorporated. All rights reserved.
  7. '
  8.  
  9. Response.Buffer = False
  10. Response.ContentType = "text/xml"
  11.  
  12. set fso = CreateObject("Scripting.FileSystemObject")
  13.  
  14. thisFilename = Request.ServerVariables("PATH_TRANSLATED")
  15. foldername = fso.GetParentFolderName(thisFilename)
  16.  
  17. set infoFolder = fso.GetFolder(foldername)
  18.  
  19. Response.Write "<ui5>"
  20. for each file in infoFolder.Files
  21.     if Right(file.Name, 8) = ".ui5.xml" then
  22.         Response.Write "<!-- " & file.Name & " -->" & vbNewLine
  23.  
  24.         set stream = fso.OpenTextFile(file.Path, 1)
  25.         Response.Write stream.ReadAll
  26.  
  27.         Response.Write vbNewLine
  28.     end if
  29. next
  30.  
  31. Response.Write "</ui5>"
  32.  
  33. %>
  34.