#while (! $RS->EOF) 
#{
	$value = $RS->Fields(1)->value;
	
	print "$value\n";

	$RS->MoveNext;
#}