Description:  Return current object class 
Syntax:  class„'obj' Œwi 'class' 

Example: 
0 0½'web' Œwi '*Create' 'TWebSite5' 
0 0½'html' Œwi '*Create' 'THTML5' ('debug'1) 
0 0½'html' Œwi 'AddStyle' 'P {font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 8pt; margin: 5px, 5px, 5px, 5px;'} ' 
0 0½'html' Œwi 'AddStyle' 'TH {border-width: 1px; background-color: #FFFFAA;font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 10pt; padding: 2px, 2px, 2px, 2px;'} ' 
0 0½'html' Œwi 'AddStyle' 'TABLE border-right-color: black; {border-bottom-color: black; font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 12pt;'} ' 
0 0½'html' Œwi 'AddStyle' 'TR {border-width: 1px; font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 8pt;'} ' 
0 0½'html' Œwi 'AddStyle' '.TDROW1 {border-width: 1px; font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 8pt; background-color: #FFFFFF;'} ' 
0 0½'html' Œwi 'AddStyle' '.TDROW2 {border-width: 1px; font-family: Verdana, Helvetica, Arial, sans-serif; font-size: 8pt; background-color: #FFFFAA;'} ' 
0 0½'html' Œwi 'Cat' '<br>' 
© table„30 4½¼100 
© table„'html' Œwi 'FormatTable'table'I5' 'O<->CI8' 'Q<%>I10' 'F12.2'  ©*** FormatTable to be written 
© table„'html' Œwi 'GroupLines'table 3                                 ©*** GroupLines to be written 
© table„'Col 1' 'Col 2' 'Col 3' 'Col 4'®table 
© table„'Col 1 & 2' '' 'Col 3 & 4' ''®table 
© table„'General Table Title' '' '' ''®table 
© 0 0½'html' Œwi 'AddTable' ' border="1" cellpadding="0" width="520" cellspacing="0"' table 3 0 1(1 1 2 3) 
© htm„'html' Œwi 'End' 
© file„'c:\inetpub\wwwroot\test\testvml.asp' 
© tie„¯1+˜/Œnnums,Œxnnums,0 
© :if'oo5' Œwi 'FileExist'file 
©     file Œntie tie 
©     0 Œnresize tie 
© :else 
©     file Œncreate tie 
© :end 
© htm Œnappend tie 
© Œnuntie tie 
© content„'html' Œwi '*‘‘‘html' 
© 0 0½'web' Œwi 'AddPage' 'isaps' 'Stats2002PopProc' '3 Most Popular ISAPS Procedures'0 0 content  © create in the Public Site with no Login + name change to _pre 
© Œerase'table htm file tie content' 

Description:  Creates the HTML code for inclusion of APL+Win Objects in the left menu 
Syntax:   htmlcode„'web' Œwi 'AddLeftMenuObjects' 
Example: 
      htmlcode„'web' Œwi 'AddLeftMenuObjects' 

Description:  Creates new HTML page(s) describing one or more APL+Win Object 
Syntax:  'obj' Œwi 'AddObjectPage'objects 
objects:  one or more APL+Win Objects names 
Note:  this method is tailored to creating HTML pages in the Lescasse Consulting 
Web Site: it is specific to creating pages describing APL+Win Objects 
Example: 
      'web' Œwi 'AddObjectPage' 'TEdit5' 

Description:  Adds a new page to the Web Site 
Syntax:  'obj' Œwi 'AddPage'website webpage title private login content 
website:  name of the Web Site in which Web Pages are to be created (example:  isaps) 
webpage:  name of the Web page to create in the Web site (example:  stats2002) 
title:  Web page title (displayed in page) 
private:  1=page is to be created in private Site  0=page is to be created in Public Site 
login:  1=page is to be protected with Login/Password  0=page can be directly read 
content:  HTML code to be included in the page 
Example: 
      'web' Œwi 'AddPage' 'isaps' 'stats2002' 'ISAPS Questionnaire 2002'1 1 '' 

Description:  Adds a new page to the Web Site 
Syntax:  'obj' Œwi 'AddPageEx'website webpage title private login content width 
website:  name of the Web Site in which Web Pages are to be created (example:  lc) 
webpage:  name of the Web page to create in the Web site (example:  index  or new\index) 
title:  Web page title (displayed in page) 
private:  1=page is to be created in private Site  0=page is to be created in Public Site 
login:  1=page is to be protected with Login/Password  0=page can be directly read 
content:  HTML code to be included in the page 
width:  page width in pixels (an integer; any width less than or equal to 100 is treated as a % of the page; example: 100 means "100%") 
Example: 
      'web' Œwi 'AddPageEx' 'lc' 'new/index' 'Lescasse Consulting Home Page'0 0 '' 

Description:  Creates a new Web Site 
Syntax:  'obj' Œwi 'AddWeb'websitename 
websitename:  name of the new Web Site directory (under c:\inetpub\wwwroot) 
Example: 
      'web' Œwi 'AddWeb' 'lc' 

Description:  Internal method (used by method: AddObjectPage).  Not documented. 

Description:  Removes extraneous blanks, adds <DIV> tags for titles, <P> tags for text 
Syntax:  htmlcode„'obj' Œwi 'CleanHTML'htmlcode 
htmlcode:  a character vector containing HTML code 
Example: 
      'web' Œwi 'CleanHTML' htmlcode 

Description:  Adds a unique code (hash) for each member of the ISAPS database 
Syntax:  'obj' Œwi 'CodeMembers' 
Example: 
      'web' Œwi 'CodeMembers' 

Description:  Delete an existing page in the Web Site 
Syntax:  'obj' Œwi 'DeletePage'pagename 
pagename:  name of the page to be deleted (under c:\inetpub\wwwroot) 
Example: 
      'web' Œwi 'DeletePage' 'lc\Aplwin30.asp' 

Description:  Displays the specified Web Page in the MSIE browser 
Syntax:  'obj' Œwi 'DisplayPage'pagename 
pagename:  name of the page to be displayed (under c:\inetpub\wwwroot) 
Example: 
      'web' Œwi 'DisplayPage' 'lc\Aplwin30.asp' 

Description:  Returns the list of Emails of various ISAPS types of Members 
Syntax:  'obj' Œwi 'Emails'typeOfMembers 
typeOfMembers:  one of 'all' 'board' 'secretaries' 
Example: 
      'web' Œwi 'Emails' 'secretaries' 

Description:  Finds and reports all styles used in all WebSite pages 
Syntax:  res„'obj' Œwi 'FindStyles'web{pagestyle} 
web:  a website represented by its directory 
pagestyle:  a style name or a page name (if pagestyle is a page name, include its extension) 
res:  a 2-element nested vector 
      the list of unique styles used in the Web site and 
      a 2-column nested matrix 
        [;1]=style name 
        [;2]=page file 
Note:  if a style name is specified, only those pages 
       containing this style are returned or only those 
       styles contained by this page are returned 
Example: 
      'web' Œwi 'FindStyles' 'c:\inetpub\wwwroot\lc\new' 
      'web' Œwi 'FindStyles' 'c:\inetpub\wwwroot\lc\new' 'offtop' 
      'web' Œwi 'FindStyles' 'c:\inetpub\wwwroot\lc\new' 'pageleft.asp' 

Description:  List all pages in the Web Site 
Syntax:  'obj' Œwi 'ListPages'website 
website:  name of the Web Site (under c:\inetpub\wwwroot) 
Example: 
      'web' Œwi 'ListPages' 'lc' 

Description:  Returns the list of ISAPS Members 
Syntax:  'obj' Œwi 'Members'where field1 field2 
where:  '' or a Where statement 
field1:  any field name in the Members table 
field2:  any field name in the Members table 
... 
Example: 
      'web' Œwi 'Members' '' 'Lname' 'Fname'  © return all Members Names and First names 
      'web' Œwi 'Members' ' (NatSec=1) Or NatSec1=1' 'Lname' 'Fname'  © return all Members Names and First names 

Description:  Moves a page from the old LC Site to the new LC Site 
Syntax:  rc„'obj' Œwi 'MovePage'filename 
filename:  a page file name (like:  APLWin30_.asp) ending with _ 
rc:  0=page does not exist in new site  1=page created ok 
Note:  this method is specific to my own configuration and use 
Example: 
      'web' Œwi 'MovePage' 'aplwin30_.asp' 

Description:  Duplicate photos copying from a directory to another, renaming them and normalizing their sizes 
Syntax:  'obj' Œwi 'PhotoDup'sourcedir destdir prefix width 
sourcedir:  source directory 
destdir:  destination directory (note: must exist) 
prefix:  name to be used for saving photos in destination directory 
         (example:  if 'conf03' is the prefix, JPG photos will be named 'conf03_001.jpg' ... 'conf03_xxx.jpg') 
width:  desired width (or height if photo in portrait mode) in pixels 
Note:  This method also create ThumbNail photos of width (or height) 115 pixels which are named:  prefix,'Thumb_xxx.ext' 
Requires:  APL+Win 5.0 APLDRAW.OCX 
Example: 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031102' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031103' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031104' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 

Description:  Create a thumbnail HTML page with all photos contained in specified directories 
Syntax:  'obj' Œwi 'Photos' website webpage title private login width dir prefix 
website:  name of the Web Site in which Web Pages are to be created (example:  isaps) 
webpage:  name of the Web page to create in the Web site (example:  stats2002) 
title:  Web page title (displayed in page) 
private:  1=page is to be created in private Site  0=page is to be created in Public Site 
login:  1=page is to be protected with Login/Password  0=page can be directly read 
width:  HTML page width in pixels 
dir:  directory where to fetch photos from 
prefix:  photo names prefix of photos to include in the page (example:  'Conf03') 
Notes: 
1. Handles only .GIF, .JPG & .PNG files 
2. The <webpage> argument is not used: instead, the created HTML page will be named:  prefix,'Photos.asp' 
Example: 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031102' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031103' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 
      'web' Œwi 'PhotoDup' 'C:\Documents and Settings\Eric Lescasse\My Documents\My Pictures\Image Library\20031104' 'c:\inetpub\wwwroot\lc\images' 'Conf03' 540 
      'web' Œwi 'Photos' 'lc' '' 'APL2000 2003 User Conference Photos' 0 0 540 'c:\inetpub\wwwroot\lc\images' 'Conf03' 

Description:  Reads the text contained in the ClipBoard and prepares it for inclusion in an APL pHTML page function 
Syntax:  aplcode„'obj' Œwi 'PrepareText' 
Note:  the result is also placed in the Windows ClipBoard, replacing the source text 
the result can thus be pasted within an APL HTML Page function 
Example: 
      'web' Œwi 'PrepareText' 

Description:  Removes a tag (and its dependent tags) from given HTML code 
Syntax:  rc„'obj' Œwi 'MovePage'htmlcode tag 
htmlcode:  a character vector 
tag:  a tag name 
Example: 
      'web' Œwi 'RemoveTag' '<html><head></head><body><table width="100%"><tr><td>Trial</tr></td></table></body></html>' 'table' 

Description:  Rename an existing page in the Web Site 
Syntax:  'obj' Œwi 'RenamePage'oldpage newpage 
oldpage:  name of the page to be renamed (under c:\inetpub\wwwroot) 
newpage:  new name for the page to be renamed (under c:\inetpub\wwwroot) 
Example: 
      'web' Œwi 'RenamePage' 'lc\index.asp' 'lc\index.htm' 

Description:  Creates the .ASP pages with a Form and its Processing to add new records to a database table 
Syntax:  html„'obj' Œwi 'TableForm'website webpage title private login database table 
website:  name of the Web Site in which Web Pages are to be created (example:  isaps) 
webpage:  name of the Web page to create in the Web site (example:  stats2002) 
title:  Web page title (displayed in page) 
private:  1=page is to be created in private Site  0=page is to be created in Public Site 
login:  1=page is to be protected with Login/Password  0=page can be directly read 
database:  database DSN name to be used for the database connection (example:  ISAPS Members Access Database) 
table:  name of table for which an input form is to be created (example:  stats) 
html:  HTML code of the created form 
Example: 
      'web' Œwi 'TableForm' 'isaps' 'stats2002' 'ISAPS Questionnaire 2002' 0 0 'ISAPS Members Access Database' 'Stats2002'