foreach $i (sort keys %subcat) {
		
	print "<TR><TR><A HREF=\"offers\.cgi\?
$category\&$i\"><img src=\"\.\.\/Media\/redaro\.gif\" 
width=13 height=13 border=0 alt=\"\"><\/A> <A 
HREF=\"otestnu\.cgi\?$category\&$i\">$i</A> ($subcat{$i})
</TD></TR>\n"

}