TADOConnetion = class
  .Create(ConnectionString: String): String;
  .Open;
  .Close;
  .Execute(sSQL: string): TADODataset;
  .BeginTrans;
  .CommitTrans;
  .RollbackTrans;
  .ExecuteSQL;
  .GetDataset(sSQL: string): TADODataset;
  .Version: string;
  .State: integer;
  .DatasetCount: integer;
  .Free;
properties
  .ConnectionString: String;
  .CommandTimeout: integer;
    

TDBField = class
  .IsNull: Boolean;
  .DataType: Integer;
  .DataSize: integer;
  .FieldName: string;
properties
  .Value: Variant;
  .AsString: String;
  .AsInteger: Integer;
  .AsFloat: Float;
  .AsDateTime: DateTime;
    

TADODataset = class
  .Create;
  .Open;
  .Close;
  .First: boolean;
  .Next: boolean;
  .Last: boolean;
  .Eof: boolean;
  .FieldByName(Name: string): TDBField;
  .edit;
  .insert;
  .post;
  .cancel;
  .delete;
  .RecordCount: integer;
  .FieldCount: integer;
  .GetHTMLCombo: string;
  .Free;
properties
  .SQL: String;
  .Connection: TADOConnection;
  .Fields[index]: TDBField;
  .Fieldisnull[index]: boolean;
  .FieldAsDateTime[index]: dateTime;
  .FieldAsFloat[index]: Float;
  .FieldAsString[index]: String;
  .FieldAsInteger[index]: Integer;
  .FieldAsVariant[index]: Variant;
  .CommandTimeout: integer;
    

  TDBIsamQuery = class
    constructor Create(Databasename, SQL : String);
    procedure First;
    procedure Next;
    procedure Prior;
    procedure Last;
    procedure Append;
    procedure Insert;
    procedure Edit;
    procedure Delete;
    procedure Cancel;
    procedure Post;
    function BOF : Boolean;
    function EOF : Boolean;
    function FieldByName(Name : String) : Variant;
    procedure Store(FieldName : String; Value : Variant);
    function AsString(FieldName : String) : String;
    function AsFloat(FieldName : String) : Float;
    function AsInteger(FieldName : String) : Integer;
    function AsBoolean(FieldName : String) : Boolean;
    function AsDateTime(FieldName : String) : DateTime;
    class procedure Execute(Alias : String; SQL : String);
    function Locate(KeyFields : String; KeyValues : Variant) : Boolean;
    function IsEmpty : Boolean;
    function RecNo : Integer;
    function RecordCount : Integer;
  end;

  TDBIsamTable = class
    constructor Create(Databasename, TableName : String);
    procedure First;
    procedure Next;
    procedure Last;
    procedure Prior;
    procedure Append;
    procedure Insert;
    procedure Edit;
    procedure Delete;
    procedure Cancel;
    procedure Post;
    function BOF : Boolean;
    function EOF : Boolean;
    function Locate(KeyFields : String; KeyValues : Variant) : Boolean;
    function FieldByName(Name : String) : Variant;
    procedure Store(FieldName : String; Value : Variant);
    function AsString(FieldName : String) : String;
    function AsFloat(FieldName : String) : Float;
    function AsInteger(FieldName : String) : Integer;
    function AsBoolean(FieldName : String) : Boolean;
    function AsDateTime(FieldName : String) : DateTime;
    function IsEmpty : Boolean;
    property IndexName : String;
    property Filter : String;
    function RecNo : Integer;
    function RecordCount : Integer;
  end;

dws2IBOlib     -  introduces some classes to create and work with database
                  objects in the script. dws2IBOlib is linked to 1
                  TIB_Connection and 1 TIB_Transaction.
                  There are some extra IBO properties to use Jasons extras.

dws2IBODataSrc -  component to add a predefined TIB_Query, TIB_Cursor,
                  or TIB_Statement as script object that can be used
                  in the script without creation or prepare.

dws2IBODataBase-  component to add more TIB_Connections if you use more
                  than one database. DWS Queries and Statments can be
                  created with database as parameter.

Please see the help files of Delphi, interbase and IBO about the meaning
of these classes and methods.

LookUpField : special for web apps - define a master-detail table relation,
                 you can lookup details belonging to one master dataline (like
                 with name=value in stringlists) when "name" filed is string.

DataSetGrp :  DataSetGroup, special for reports - if you iterate through
                 a dataset you can use DataSetGrp to watch changing of single
                 field values, calculate group sums and total sums (like
                 all incomes listed per person and totals per person....).

TDatabase
    .create(Database,user, pwd: String): String;
    .connect;
    .disconnect;
   properties
    .dialect: integer;
    .charset: String;

TDBField
   properties
    .Value: Variant;
    .AsString: String;

TLUField = class(TDBField)
   properties
    .Value: Variant;
    .AsString: String;

TStatement
    .Create;
    .CreateFromDB(Database: TDatabase);
    .free;
    .execute;
    .FieldName(FieldName: String): TDBField;
    .Field(FieldName: String): Variant; //simple version
    .FieldIsNull(FieldName: String): boolean;
    .ParamByName(ParamName: String): TDBField;
    .SetParam(ParamName: String; Value: variant);
   properties
    .SQL: String; // after create assign SQL with the SQL statement

TDataset   = class(TStatement)
    .Open;
    .First: boolean;
    .Next: boolean;
    .Eof: boolean;
    .xxx: String;
    .edit;
    .insert;
    .post;
    .cancel;
    .delete;
    .close;

TQuery = class(TDataset)
    .Prior: String;
    .SetLookUpFields(KeyFieldName,LUfieldName: String): String;
    .LookUp(KeyFieldValue: String): String;
   properties
    .Filter: String;
    .Filtered: boolean;
    .SortOrder: integer;

TDataSetGrp
    .create(DataSet: TDataset; GroupFieldName: String);
          DataSet is allready prepared;
    .Free;
    .Changed: boolean;
          will be false while the content of the GroupField stays the same
          while iterating through this dataset
    .AddSumField(FieldName: String);
          after create, before start iterating, add all fieldnames of fields
          which should be added in the group or total
    .SumOfField(FieldName: String): float;
          returns actual value of added field values. is set to 0 with "reset"
    .Count: integer;
          returns the number of datarecords in this group.
    .AddRow;
          adds values of all fields 
    .Restart;
          reset values for a new group, DOES NOT RESET FIELD SUMS
    .Reset;
          reset values AND FIELD SUMS for a new group

The functions excluded are:
	1) procedure ReadSection
	2) procedure ReadSections
	3) procedure ReadSectionValues
All other procedures, functions, and properties exist.

Port to Kylix should be easily made.

Constants
----------

-

Functions
----------

procedure Beep;
function  Dec(var I: Integer): Integer;
function  Dec2(var I: Integer; N: Integer): Integer;
function  Inc(var I: Integer): Integer;
function  Inc2(var I: Integer; N: Integer): Integer;
function  GetTickCount: Integer;
procedure Sleep(mSecs: Integer);
procedure WriteLn(Text: String);

Constants
----------

-

Functions
----------

function Connected: Boolean;
function IPAddress: String;

Constants
----------

-

Functions
----------

function SelectStringDialog(Title: String; Strings: TStringList; Selected: Integer): Integer;

Constants
----------

DRIVE_UNKNOWN
DRIVE_NO_ROOT_DIR
DRIVE_REMOVABLE
DRIVE_FIXED
DRIVE_REMOTE
DRIVE_CDROM
DRIVE_RAMDISK
FILEDATE_CREATION
FILEDATE_LASTACCESS
FILEDATE_LASTWRITE
MOVEFILE_REPLACE_EXISTING
MOVEFILE_COPY_ALLOWED
MOVEFILE_DELAY_UNTIL_REBOOT
MOVEFILE_WRITE_THROUGH
MOVEFILE_CREATE_HARDLINK
MOVEFILE_FAIL_IF_NOT_TRACKABLE

Functions
----------

function  DescCopy(Source, Target: String): Boolean;
function  DescListCreate(Dir: String): TStringList;
function  DescListRead(List: TStringList; FileName: String): String;
function  DescMove(Source, Target: String): Boolean;
function  DescRead(Filename: String): String;
function  DescWrite(FileName, Desc: String): Boolean;
function  OpenDialog(FileName, InitialDir, Title, DefaultExt, Filter: String; FilterIndex: Integer): String;
function  OpenDialogMulti(FileName, InitialDir, Title, DefaultExt, Filter: String; FilterIndex: Integer): TStringList;
function  SaveDialog(FileName, InitialDir, Title, DefaultExt, Filter: String; FilterIndex: Integer): String;
function  CDClose(Drive: Integer): Boolean;
function  CDOpen(Drive: Integer): Boolean;
function  GetCRC32FromFile(FileName: String): Integer;
function  GetDriveName(Drive: Integer): String;
function  GetDriveNum(Drive: String): Integer;
function  GetDriveReady(Drive: Integer): Boolean;
function  GetDriveSerial(Drive: Integer): String;
function  GetDriveType(Drive: Integer): Integer;
function  DirectoryExists(DirName: String): Boolean;
function  DirectoryList(DirName: String; Recurse, Hidden): TStringList;
function  CopyFile(Source, Target: String; Fail: Boolean): Boolean;
function  FileDate(FileName: String; Flag: Integer): DateTime;
function  FileList(FileName: String; Recurse, Hidden, Dirs: Boolean): TStringList;
function  FileSize(FileName: String): Integer;
function  MakePath(Drive, Dir, Name, Ext: String): String;
function  MoveFile(Source, Target: String): Boolean;
function  MoveFileEx(Source, Target: String; Flags: Integer): Boolean;
function  ReadOnlyPath(Path: String): Boolean;
procedure SplitPath(Path: String; var Drive, Dir, Name, Ext: String);
function  SubdirectoryExists(Dir: String): Boolean;

Constants
----------

VER_UNKNOWN
VER_WIN32S
VER_WIN95
VER_WIN98
VER_WIN98SE
VER_WINME
VER_WINNT
VER_WINNT4
VER_WIN2000

Functions
----------

function  GetAllUsersDesktopDirectory: String;
function  GetAllUsersProgramsDirectory: String;
function  GetAllUsersStartmenuDirectory: String;
function  GetAllUsersStartupDirectory: String;
function  GetAppdataDirectory: String;
function  GetCacheDirectory: String;
function  GetChannelFolderName: String;
function  GetCommonFilesDirectory: String;
function  GetComputerName: String;
function  GetConsoleTitle: String;
function  GetCookiesDirectory: String;
function  GetCPUSpeed: String;
function  GetDesktopDirectory: String;
function  GetDevicePath: String;
function  GetEnvironmentVariable: String;
function  GetFavoritesDirectory: String;
function  GetFontsDirectory: String;
function  GetHistoryDirectory: String;
function  GetLinkfolderName: String;
function  GetMediaPath: String;
function  GetNethoodDirectory: String;
function  GetPersonalDirectory: String;
function  GetPFAccessoriesName: String;
function  GetPrinthoodDirectory: String;
function  GetProgramfilesDirectory: String;
function  GetProgramsDirectory: String;
function  GetRecentDirectory: String;
function  GetSendtoDirectory: String;
function  GetSMAccessoriesName: String;
function  GetStartmenuDirectory: String;
function  GetStartupDirectory: String;
function  GetSystemDirectory: String;
function  GetTempDirectory: String;
function  GetTemplatesDirectory: String;
function  GetUserName: String;
function  GetVersion: String;
function  GetWallpaperDirectory: String;
function  GetWindowsDirectory: String;
function  GetWindowsVersion: String;
function  IsWin2000: Boolean;
function  IsWin9x: Boolean;
function  IsWinNT: Boolean;
function  IsWinNT4: Boolean;
function  SetComputerName: String;
function  SetConsoleTitle: String;

Klasse TIniFile
---------------

procedure TIniFile.Create(FileName: String);
procedure TIniFile.Destroy;
procedure TIniFile.DeleteKey(Section: String; Ident: String);
procedure TIniFile.EraseSection(Section: String);
function  TIniFile.ReadBool(Section: String; Ident: String; Default: Boolean): Boolean;
function  TIniFile.ReadDate(Section: String; Ident: String; Default: DateTime): DateTime;
function  TIniFile.ReadDateTime(Section: String; Ident: String; Default: DateTime): DateTime;
function  TIniFile.ReadFloat(Section: String; Ident: String; Default: Float): Float;
function  TIniFile.ReadInteger(Section: String; Ident: String; Default: Integer): Integer;
procedure TIniFile.ReadSection(Section: String; Strings: TStringList);
procedure TIniFile.ReadSections(Strings: TStringList);
procedure TIniFile.ReadSectionValues(Section: String; Strings: TStringList);
function  TIniFile.ReadString(Section: String; Ident: String; Default: String): String;
function  TIniFile.ReadTime(Section: String; Ident: String; Default: DateTime): DateTime;
function  TIniFile.SectionExists(Section: String): Boolean;
procedure TIniFile.UpdateFile;
function  TIniFile.ValueExists(Section: String; Ident: String): Boolean;
procedure TIniFile.WriteBool(Section: String; Ident: String; Value: Boolean);
procedure TIniFile.WriteDate(Section: String; Ident: String; Value: DateTime);
procedure TIniFile.WriteDateTime(Section: String; Ident: String; Value: DateTime);
procedure TIniFile.WriteFloat(Section: String; Ident: String; Value: Float);
procedure TIniFile.WriteInteger(Section: String; Ident: String; Value: Integer);
procedure TIniFile.WriteString(Section: String; Ident: String; Value: String);
procedure TIniFile.WriteTime(Section: String; Ident: String; Value: DateTime);

property  TIniFile.FileName: String;

Constants
----------

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_PERFORMANCE_DATA
HKEY_CURRENT_CONFIG
HKEY_DYN_DATA

Functions
----------

procedure RegCreateKey(MainKey: Integer; SubKey: String);
procedure RegDeleteKey(MainKey: Integer; SubKey: String);
procedure RegDeleteValue(MainKey: Integer; SubKey: String; ValName: String);
function  RegReadInteger(MainKey: Integer; SubKey: String; ValName: String; ValDef: Integer): Integer;
function  RegReadString(MainKey: Integer; SubKey: String; ValName: String; ValDef: String): String;
function  RegGetType(MainKey: Integer; SubKey: String; ValName: String; var Size: Integer): Integer;
function  RegKeyExists(MainKey: Integer; SubKey: String): Boolean;
function  RegValueExists(MainKey: Integer; SubKey: String; ValName: String): Boolean;
procedure RegWriteInteger(MainKey: Integer; SubKey: String; ValName: String; Value: Integer);
procedure RegWriteString(MainKey: Integer; SubKey: String; ValName: String; Value: String);

Constants
----------

-

Functions
----------

DesktopRefresh;

Constants
----------

cdrLeft
cdrRight

Functions
----------

function  ANSI2OEM(S: String): String;
function  ChangeTokenValue(S: String; Name: String; Value: String; Delimiter: String): String;
function  Chr(Byte: Integer): String;
function  CmpRE(S: String; RE: String): Boolean;
function  CmpWC(S: String; WC: String; Case: Boolean): Boolean;
function  Crop(S: String; Len: Integer; Dir: Integer; Delimiter: String)
function  ForEach(List: TStringList; Func: String; Flag: Integer): Boolean;
procedure FormatColumns(List: TStringList; Delimiter: String; Space: String; Adjustment: Integer);
function  GetCRC32FromString(S: String): Integer;
function  GetStringFromList(List: TStringList; Delimiter: String): String;
function  GetTokenList(S: String; Delimiter: String; Repeater: Boolean; IgnoreFirst: Boolean; IgnoreLast: Boolean): TStringList;
function  IncWC(S: String; WC: String; Case: Boolean): String;
function  Num2Text(Num: Integer): String;
function  OEM2ANSI(S: String): String;
function  Ord(Char: String): Integer;
function  PosX(SubStr: String; S: String): Integer;
function  StringOfChar(Ch: String; Count: Integer): String;
function  TestWC(S: String): Integer;
function  Translate(S: String; Out: String; In: String; Place: String; Case: Boolean): String;

Constants
----------

SW_HIDE
SW_SHOWNORMAL
SW_NORMAL
SW_SHOWMINIMIZED
SW_SHOWMAXIMIZED
SW_MAXIMIZE
SW_SHOWNOACTIVE
SW_SHOW
SW_MINIMIZE
SW_SHOWMINNOACTIVE
SW_SHOWNA
SW_RESTORE
SW_SHOWDEFAULT
EWX_LOGOFF
EWX_SHUTDOWN
EWX_REBOOT
EWX_FORCE
EWX_POWEROFF
EWX_FORCEIFHUNG

Nachrichten-Constants für PostMessage() und SendMessage() siehe Datei dws2MFLibMessages.txt

Functions
----------

function  ShellExecute(Operation: String; Filename: String; Parameters: String; Directory: String; ShowCmd: Integer): Integer;
function  ShellExecuteWait(Filename: String; Parameters: String; Directory: String; ShowCmd: Integer): Boolean;
function  ExitWindowsEx(Flags: Integer): Integer;
function  WriteMailslot(Machine: String; Mailslot: String; Text: String): Boolean;
function  GetProcessList: TStringList;
function  HiWord(Value: Integer): Integer;
function  IsFileActive(FileName: String): Boolean;
function  KillProcess(Window: Integer; FileName: String; KillAll: Boolean): Boolean;
function  LoWord(Value: Integer): Integer;
function  MakeLong(Low, High: Integer): Integer;
function  PostMessage(Window, Msg, WParam, LParam: Integer): Boolean;
procedure SendKeys(Keys: String);
procedure SendKeysEx(Keys: String; Wait: Integer);
function  SendKeysNamedWin(Window: String; Keys: String): Integer;
function  SendKeysNamedWinEx(Window: String; Keys: String; Wait: Integer; Back: Boolean): Integer;
function  SendKeysWin(Window: Integer; Keys: String): Integer;
function  SendKeysWinEx(Window: Integer; Keys: String; Wait: Integer; Back: Boolean): Integer;
function  SendMessage(Window, Msg, WParam, LParam: Integer): Integer;

Constants
----------

-

Functions
----------

function  FindWindow(Class: String; Window: String): Integer;
function  FindWindowEx(Parent: Integer; ChildAfter: Integer; Class: String; Window: String): Integer;
function  GetClassName(Window: Integer): String;
function  GetWindowText(Window: Integer): String;
procedure HideTaskbar;
function  IsIconic(Window: Integer): Boolean;
function  IsWindow(Window: Integer): Boolean;
function  IsWindowEnabled(Window: Integer): Boolean;
function  IsWindowVisible(Window: Integer): Boolean;
function  IsZoomed(Window: Integer): Boolean;
function  SearchWindow(var Class; var Window: String; ProcID: Integer): Integer;
function  SearchWindowEx(Parent: Integer; ChildAfter: Integer; var Class; var Window: String; Num: Integer): Integer;
procedure ShowTaskbar;
function  WaitForWindow(var Class; var Window: String; Timeout: Integer; ProcID: Integer): Integer;
function  WaitForWindowClose(Window: Integer; Timeout: Integer): Boolean;
function  WaitForWindowClose(Class: String; Window: String; Timeout: Integer; ProcID: Integer): Boolean;
function  WaitForWindowEnabled(Window: Integer; Timeout: Integer): Boolean;
function  WaitForWindowEnabled(Class: String; Window: String; Timeout: Integer; ProcID: Integer): Boolean;
function  WaitForWindowEx(Parent: Integer; var Class; var Window: String; Timeout: Integer; Num: Integer): Integer;
procedure WindowMove(Window: Integer; X: Integer; Y: Integer; Abs: Boolean);
procedure WindowResize(Window: Integer; X: Integer; Y: Integer; Abs: Boolean);

Constants
----------

Zip_Add
Zip_Move
Zip_Update
Zip_Freshen
Zip_Extract
Zip_Test
Zip_OverwriteConfirm
Zip_OverwriteAlways
Zip_OverwriteNever
Zip_EraseFinal
Zip_EraseAllowUndo

Classes
-------

TZip

constructor TZip.Create;
destructor  TZip.Destroy;

function  TZip.Add(Action: Integer; ZipFile: String; FileName: String): Integer;
function  TZip.AddList(Action: Integer; ZipFile: String; FileNames: TStringList): Integer;
function  TZip.Delete(ZipFile: String; FileName: String): Integer;
function  TZip.DeleteList(ZipFile: String; FileNames: TStringList): Integer;
function  TZip.Extract(Action: Integer; ZipFile: String; FileName: String): Integer;
function  TZip.ExtractList(Action: Integer; ZipFile: String; FileNames: TStringList): Integer;
function  TZip.List(ZipFile: String): TStringList;
function  TZip.Message(ZipFile: String): String;
function  TZip.ReadSpan(SpanFile: String; var ZipFile: String): Integer;
function  TZip.SFX2ZIP(ZipFile: String): Integer;
function  TZip.WriteSpan(ZipFile: String; SpanFile: String): Integer;
function  TZip.ZIP2SFX(ZipFile: String): Integer;

property TZip.AddCompLevel: Integer;
property TZip.AddDirNames: Boolean;
property TZip.AddDiskSpan: Boolean;
property TZip.AddDiskSpanErase: Boolean;
property TZip.AddEncrypt: Boolean;
property TZip.AddHiddenFiles: Boolean;
property TZip.AddRecurseDirs: Boolean;
property TZip.AddSeparateDirs: Boolean;
property TZip.AddZipTime: Boolean;
property TZip.ConfirmErase: Boolean;
property TZip.ExtrDirNames: Boolean;
property TZip.ExtrOverwrite: Boolean;
property TZip.HowToDelete: Boolean;
property TZip.KeepFreeOnDisk1: Integer;
property TZip.MaxVolumeSize: Integer;
property TZip.MinFreeVolumeSize: Integer;
property TZip.Password: String;
property TZip.SFXAskCmdLine: Boolean;
property TZip.SFXAskFiles: Boolean;
property TZip.SFXCaption: String;
property TZip.SFXCommandLine: String;
property TZip.SFXDefaultDir: String;
property TZip.SFXHideOverwriteBox: Boolean;
property TZip.SFXOverwriteMode: Integer;
property TZip.Temp: String;

dws2WebLib     -  introduces some classes to handle the isapi calls of
                  Borlands webbroker (request, response, cookie), the
                  scriptdoc class to store information about the scriptfile,
                  and TFormVarGroup to handle multiple input fields of
                  database tables in html forms.
                  there are also some "functions" usefull for webapps.

dws2PageProducer - based on CustomContentProducer, with standard interface
                  to be called by webactions and return content from scriptfiles.

dws2SessionLib-   component to add http-usertracking (not an easy thing)
                  and store sessiondata

dws2PageLoader -  similar to dws2PageProducer but without interface to
                  webbroker.

See the help files of Delphi about the meaning of these classes
and methods.


Request
    .Param(Name: String): String
    .Params(Name: String): String (TStrings.text !!)
       function params results a string from TStrings.text
       to be used in a Stringlist. but doesn´t use the datatype
       TStrings to be compatible with different DWS Libraries (CLasses, VCLwrapper..)
       script example: MyStringList.text := Request.Params('ffcheck');
    .ParamCount: Integer
    .ParamName(Index: Integer): String;
    .ParamValue(Index: Integer): string;
    .Authorization: string;
    .Content: String;
    .ContentLength: Integer;
    .ContentType: String;
    .CookieCount: Integer;
    .Date: DateTime;
    .From: String;
    .Host: String;
    .PathInfo: String;
    .Referer: String;
    .RemoteAddr: String;
    .RemoteHost: String;
    .ScriptName: String;
    .Title: String;
    .Url: String;
    .UserAgent: String;
    .Accept: String;
    .Method: String;
    .LogContent: String;
    .Cookie(Name: String): String;
    .CookieName(Index: Integer): String;
    .CookieValue(Index: Integer): String;

Response
    .Allow: String;
    .Content: String;
    .ContentEncoding: String;
    .ContentLength: Integer;
    .ContentType: String;
    .ContentVersion: String;
    .CookieCount: Integer;
    .NewCookie: TCookie;
    .SendRedirect(Uri: String);
    .Cookie(Index: Integer): TCookie;
    .CookieByName(Name: String): TCookie;
    .Date: DateTime;
    .DerivedFrom: String;
    .Expires: DateTime;
    .LastModified: DateTime;
    .Location: String;
    .LogMessage: String;
    .Realm: String;
    .ReasonString: String;
    .Server: String;
    .StatusCode: Integer;
    .Title: String;
    .Version: String;

ScriptDoc
    .Date: DateTime;
    .Size: Integer;
    .FileName: String;
    .Path: String;

TCookie
    .Domain: String;
    .Expires: DateTime;
    .HeaderValue: String;
    .Name: String;
    .Path: String;
    .Value: String;
    .Secure: Boolean;

TFormVarGroup
    .create;
    .AddNullFields: boolean;
         also add fields where value strings are empty (null) -
         e.g. for delete dataset records
    .Prefix: String;
         when there are mutliple fields (e.g. from a database table) with
         values that have to be inserted/updated you can name the fields
         like
         <input type="text" name="ffprfx<%=qQuery.field('id')%>"
            value="<%=qQuery.field('amount')%>">
         then Prefix is "ffprfx" and in content params is a list of
            Prefix+extension=value
         like
            ffprfx23=4500
            ffprfx677=12345
            ffprfx788=3000
         where the part between prefix and "=" is extension
    .ext: string;
         see above
    .value: string;
         see above
    .count: integer;
         number of fields with the actual prefix
    .RecNr: integer;
         actual line index of the paramlist (see first, next, eof)
    .First;
         set actual line index of the paramlist to 0 (see RecNr, next, eof)
    .Next;
         inc actual line index of the paramlist (see first, RecNr, eof)
    .Eof: boolean;
         test actual line index of the paramlist (see first, next, RecNr)

.FormVar(ParamName: String): String;
         returns field value of html-form-field by the name of  ParamName
         in a post request or (ParamName=)value in a get request.
    .RtfToHtml(RtfStr: String): String;
         replaces all CR/LF with <br>
    .TrimURL(sURL: String): String;
         deletes 'http://' from the string if any
    .AcceptWML: boolean;
         reurns if the requesting client accepts WML code
    .URLencode(sURL: String): String;
    .URLdecode(sURL: String): String;
         spaces and special character in string are replaced by %ord(chr) and vs.
    .forward(NewFile: String);
         stops execution of actual script and continues with script at
         path NewFile;

const
  // session state constants for UserSession.FClientState
  dwstateLOFF = -1; // end session and log off
  dwsStateTOUT = -2; // session timed out
  dwsStateNLI  = 0; // user is not logged in
  dwsStateGLI  = 1; // logged in as guest
  dwsStatePRF  = 9; // still to proof session
  dwsStateULI  = 10; // user is logged in, session exists
  dwsStateNAT  = 12; // logged in on higher level
  dwsStateVIP  = 20; // logged in on VIP level
  dwsStateSU   = 100; // logged in on SU level

Classes
  Session
    .Param(Name: String): variant;
    .Store(Name: String; value: variant);
    .ActiveUsers: Integer;
          number of  ActiveUsers
    .IpAddr: String;
    .ClientState: Integer;
    .SBrand: String;
         Sessionbrand: please read about session branding on www.dwscript.com
    .TLogin: DateTime;
    .TLastAction: DateTime;

Functions
      TIDfunc: String;
          returns the sessionbrand; function name is set like the value of
          property SessionBrandLable; e.g. <%= TID %> returns the sessionbrand
          if SessionBrandLable has the value 'TID'
      ActiveSession: boolean;
          tests if this request is within a context of a tracked session