Dim col
	if Request.cookies("isLogged")("group") = "1" then
		col = 7
	else
		col = 6
	End If
	Dim spc
	spc = "   "
	out "<table width=100% align=center border=0>"
	out "<tr>"
	echo "	<td background=white>"
	'## SHOW BANNERS

      	out "	<table border=0 width=100% border=0 align=center>"
	out "	<tr><td valign=middle height=70 background=""theme/current/bigbg.gif"" align=center style=""background-repeat:repeat-x"">"

	'## PUT YOUR LOGO HERE
%>
<h1>Open logo.asp to put your logo here</h1>

<%	
	'## END
	out "</tr></table>"

	'Call Theme controller
	theme_top()

'###  BEGIN TO CALL theme_bot()	
	 Function theme_top()
       '	Response.Write "<table bgcolor=white border=0 cellspacing=0 cellpadding=0 width=" & vieCSS("MainVieBoardWidth") & "% class=sm align=center>" & vbNewline & _
Response.Write "<tr><td align=center width=1% nowrap>" & vbNewline & _
		 "	<table cellpadding=0 class=sm cellspacing=0 align=center style='color:#4A4B80'>" & vbNewline & _
		 "	<tr>"
	echo logoButton("butPortal.gif","portal.asp","Portal")
	echo logoButton("butForum.gif","default.asp","Forums")
	echo logoButton("butPM.gif","login.asp","Login")
	echo logoButton("butPM.gif","pm.asp?mode=inbox","Inbox")
	echo logoButton("butSearch.gif","search.asp","Search")
	echo logoButton("butprofile.gif","pop_profile.asp?mode=Edit","Profile")
	echo logoButton("butStaff.gif","staff.asp","Staff")
	echo logoButton("butFAQ.gif","faq.asp","FAQ")	
	out "	</tr></table>" 
	out "</tr>"
	out "<tr>"
%> <center>  <%
	out " <td colspan=3 align=center valign=middle WIDTH=100% height=22 background=""images/bg.gif"" style=""BACKGROUND-REPEAT:REPEAT-X;background-position:TOP"">"
   Response.Write  "  <a href=""active.asp"" target=""_self"">Active Topics</a> | <a href=""members_top_poster.asp"" target=""_self"">Top Poster</a> | <a href=""active_polls.asp"" target=""_self"">Active Polls</a> | <a href=""res_livenews.asp"" target=""_self"">Resources</a> | <a href=""members.asp"" target=""_self"">Members</a> | <a href=""active_users.asp"" target=""_self"">Online Users</a> | <a href=""liquidchat.asp"" target=""_self"">Live Chat</a> | <a href=""pop_avatarlegend.asp"" target=""_self"">Avatar Legend</a> | <a href=""search.asp"" target=""_self"">Search</a> | <a href=""bookmark.asp"" target=""_self"">Bookmark</a> | <a href=""member_stats.asp"" target=""_self"">Statistics</a>" & vbNewLine 

 %>
  </center>     <%

	echo "</td>"
	out "</tr>"
			'## SHOW ONLY IF THIS IS A REGISTERED MEMBER
			if Request.cookies("isLogged")("mID") <> "" then
				'out "<tr>"
				'out "	<td>"
				'out "<table class=sm cellpadding=2 cellspacing=2 width=""100%"" style=""border:1px solid F2F2F2"">"
				'out "		<tr><td bgcolor=F0F0F0 width=" & (100/col) & "% nowrap> " & lang.item("menu_header_loginAs")
				'out "				<a href=""getMember.asp?msn=" & Request.cookies("isLogged")("msn") & """ class=sm><b>" & Request.cookies("isLogged")("msn") & "</b></a>"
				'out "			<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap><a href=""logout.asp"" class=sm>" & lang.item("menu_header_logout") & "</a>"
				'out "			<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap><a href=""portal.asp?panel=on"" class=sm>Portal Panel</a>"
			       '	out "				<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap><a href=""portal.asp?module=calendar&t=a"" class=sm><b>Add Event</b></a>  <font color=red><b>new</b></font>"
			       '	out "				<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap><a href=""update.asp"" class=sm>" & lang.item("menu_header_profile") & "</a>"
			       '	out "				<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap><a href=""pm.asp"" class=sm>" & lang.item("menu_header_ucp") & "</a>"

				      '	if Request.cookies("isLogged")("group") = "1" then
					    '	out "<td width=" & (100/col) & "% bgcolor=F0F0F0 nowrap>"
Response.Write "<tr>" & vbNewline 


				       '	<select onChange="if(this.value!=''){window.location.href=this.value}">
					'	<option value="">+ Quick Links
					 '	<option value="portal.asp">   - Portal
					  '	<option value="forumindex.asp">   - Forums
					   '	<option value="listmb.asp">   - Members
					    '	<option value=""></option>
					     '	<option value="" selected>+ Administration
					      '	<option value="adm_fr.asp">   - Forums
					'</select>


					 End If
				out "</table>"
				
				'## CHECK PM
				'set rs = db.execute("SELECT COUNT(PmID) as Total from tblPM where isRead = false AND ReceiverID = " & Request.cookies("isLogged")("mID")) 

			       '	if rs("Total") > 0 then
				       '	out "<img src=""" & img & "gotmail.gif"" align=absmiddle> <a href=""pm.asp?mode=inbox""><b>"

				       '	if rs("Total") > 1 then 
				       '		echo Replace(lang("menu_header_newMsgs"),"%d",rs("Total"))
				'	else
				'		echo Replace(lang("menu_header_newMsg"),"%d",rs("Total"))
				       '	end if

			       '	echo " !</b></a>"
			 'end if
			       '	set rs = Nothing 
				'## END CHECK PM
		     '	out "</tr>"
		
			'## END SHOW MEMBER PANEL

	'out "</table>"
	out "<tr>"
	out "<td>"
'### END OF FILE - BEGIN TO CALL theme_bot()
%>
<% End Function %>