my $rsFollow = Win32::OLE->new('ADODB.Recordset');
# snip
	while( !$rsFollow->{EOF} )
	{
		print( "   <tr>\n" );

		print( "    <td> $rsFollow->{'Book Title'} + </td>\n");
		print( "   </tr>\n" );

		$rsFollow->MoveNext();
	}