home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Web / Homesite / data1.cab / HS_Wizards / HTML / Frames_HandleFrameset.wml < prev    next >
Text File  |  1999-04-12  |  1KB  |  52 lines
  1. <!---- frameset ---->
  2.  
  3. <WIZSET i = 0>
  4. <WIZLOOP index="item" list="$${Evaluate('Frame' & Level)}">
  5.     <WIZSET i = i + 1>
  6.     <WIZIF i eq 2>
  7.         <WIZSET Rows = item>
  8.     <WIZELSEIF i eq 3>
  9.         <WIZSET Cols = item>
  10.     <WIZELSEIF i gt 3>
  11.         <WIZBREAK>
  12.     </WIZIF>
  13. </WIZLOOP>
  14.  
  15.  
  16. <WIZSET RowDef = "">
  17. <WIZSET RowCount = "0">
  18. <WIZLOOP index="RowSize" list="$${Rows}">
  19.     <WIZSET RowCount = RowCount + 1>
  20.     <WIZSET RowDef = RowDef & RowSize & "%,">
  21. </WIZLOOP>
  22. <WIZSET RowDef = RowDef & "*">
  23.  
  24. <WIZSET ColDef = "">
  25. <WIZSET ColCount = "0">
  26. <WIZLOOP index="ColSize" list="$${Cols}">
  27.     <WIZSET ColCount = ColCount + 1>
  28.     <WIZSET ColDef = ColDef & ColSize & "%,">
  29. </WIZLOOP>
  30. <WIZSET ColDef = ColDef & "*">
  31.  
  32.  
  33. <WIZIF Level neq 0>
  34. >
  35. <WIZELSE>
  36. <!-- frames -->
  37. </WIZIF>$${RepeatString( ' ', 4*Level )}<$${DefaultCase('FRAMESET')} <WIZIF RowDef neq "*"> $${DefaultCase('ROWS')}="$${RowDef}"</WIZIF><WIZIF ColDef neq "*"> $${DefaultCase('COLS')}="$${ColDef}"</WIZIF>
  38.  
  39. <!---- containing frames ---->
  40. <WIZSET i = 0>
  41. <WIZLOOP index="item" list="$${Evaluate('Frame' & Level)}">
  42.     <WIZSET i = i + 1>
  43.     <WIZSET level = level + 1>
  44.     <WIZIF i gte 4>
  45.         <WIZSET dummy = SetVariable( 'Frame' & Level, item )>
  46.         <WIZINCLUDE template="Frames_Frames.wml">
  47.     </WIZIF>
  48.     <WIZSET Level = Level - 1>
  49. </WIZLOOP>>
  50. $${RepeatString( ' ', 4*Level )}</$${DefaultCase('FRAMESET')}
  51.  
  52.