print qq!
        
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR VALIGN=TOP>
		<TR VALIGN=TOP>
			<TD width=300>
			        <A HREF=http://ieinternet.com/index.htm><IMG SRC=/vpanel/images/logo_top.gif WIDTH=291 HEIGHT=58 BORDER=0
			        ALT=Irelands leader for affordable web hosting, website hosting, email hosting, ecommerce hosting,
			        windows hosting, secure hosting, full anti-virus email screening, full anti-spam email screening, 
				ieinternet.com shared hosting, ieinternet.com sme hosting, irelands leading cost effective web hosting 
				provider.ieinternet.com></A>
			</TD>
        		<TD WIDTH=450 HEIGHT=51 align=center valign=middle>
			<span class=domainheading>
!;

	print "Account: ";

print qq!
			$domainname
			</span>
			</TD>
        		<TD align=right>
				<A HREF=http://ieinternet.com/webmail><img src=http://ieinternet.com/images/my_webmail.gif
			        WIDTH=131 HEIGHT=51 ALT=Access your control panel here BORDER=0></A>
			</TD>
	</table>
!;

# Output all the tabs
print "<ul id=menu>";
for ( $tabcount = 1 ; $tabcount <= $numberoftabs ; $tabcount++ )
{
        print "<li id=nav-$tabcount><a href=/$script_bin/$section_file[$tabcount-1]><span class=text>$tab_headings[$tabcount-1]</span></a></li>\n";
}
print "</ul>\n\n";

print "<div id=contents><p class=text>";