Why not just do it like this:

<TMPL_LOOP NAME = "dbase_tbl">
<TMPL_VAR NAME = "row">
</TMPL_LOOP>

# and in the perl just do
my @cols = $sth->fetchrow_array;
my $row = join "\n", '<tr>', (map { "  <td>$_</td>" } @cols) , "</tr>\
+n";
# now just insert $row on block
[download]

Sure you have moved a little bit of HTML into your code but is saves heaps of typing and handles any width table automatically.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print