<%
var
  aSession: TnxSession;
  aDB: TnxDatabase;
  aTable: TnxTable;
  aDict: TnxDataDictionary;
begin
  aSession:=TnxSession.Create(nil);
  aDB:=TnxDatabase.Create(nil);
  aTable:=TnxTable.Create(nil);
  try
    aSession.ServerEngine:=ServerEngine;
    aSession.Active:=true;
%>
Session opened<br>
<%
    aDB.AliasName:='Test';
    aDB.Session:=aSession;
    aDB.Open;
%>
Database opened<br>
<%
    aTable.TableName:='Test';
    aTable.Database:=aDB;
    aTable.Open;
    while not aTable.Eof do
    begin
      Output.Writeln(aTable.Fields.Fields[0].AsString);
      aTable.Next;
    end;
%>
Done.<br>
<%
  finally
    aDB.free;
    aSession.Free;
  end;
end.
%>
