// $Id: hhonors.webl,v 1.1 2001/06/23 00:08:50 mdean Exp $

// Function to extract the contents of a particular (row, col) of a table.
var PickCell = fun(page, table, row, col)
    var rows = Elem(table, "tr");
    var cols = (Elem(page, "th") + Elem(page, "td")) inside rows[row];
    cols[col]
end;

var P = GetURL("file:/mdean/hilton/2001-06-05.html");

var table = Elem(P, "table")[3];
var tbody = Elem(table, "tbody")[0];
var trs = Elem(tbody, "tr");
every tr in trs do
  var hotel = Elem(tr, "td")[0];
  var checkin = Elem(tr, "td")[1];
  PrintLn(Text(hotel) + Text(checkin));
end

// PrintLn(Text(PickCell(P, table, 1, 1)));
// PrintLn(Text(PickCell(P, table, 1, 2)));