Metropoli BBS
VIEWER: topnav.asp MODE: TEXT (ASCII)
<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!--#include file="../constant.inc"-->
<!--#include file="../lib/session.inc"-->
<% SendHeader 0, 1 %>
<!--#include file="../lib/dhtmutil.inc"-->
<%
'<!--Microsoft Chat Web Access-->
'<!--TopNav.asp : Top Navigation Bar-->
'<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->

On Error Resume Next

urlString = Request.QueryString()
if urlString <> "" then urlString="?"+urlString
CheckSession bstrVirtRoot + "/root.asp" + urlString, "parent"

bcTaskbar  = "#c0c0c0"
bcDarkGrey	= "#8c8c8c"
bcTitleFnt = "#ffffff"
bcTaskFnt  = "#000000"

urlWin = Request.QueryString("iwin")
iCurrMainWin = Cint(urlWin)

iChannelsPages = Session(CURRENT_CHANNELS_PAGES)
iChannelsPage = Session(CURRENT_CHANNELS_PAGE)
iBansPages = Session(CURRENT_BANS_PAGES)
iBansPage = Session(CURRENT_BANS_PAGE)

If iCurrMainWin = MAINWIN_CHANNEL Then
	iPages = iChannelsPages
	iPage = iChannelsPage
ElseIf iCurrMainWin = MAINWIN_BAN Then
	iPages = iBansPages
	iPage = iBansPage
Else
	iPages = 1
	iPage = 1
End If

%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<HTML>
<HEAD>

<STYLE TYPE="text/css">
<!--
.link 	{color: ffffff}
-->
</STYLE>

<script language="javascript">

var iCurrMainWin = <%=iCurrMainWin%>;

function openHelpWindow()  {

	if (iCurrMainWin == 2)
		szFileName = "srvmsgh.htm";
	else if (iCurrMainWin == 3)
		szFileName = "magchanh.htm";
	else if (iCurrMainWin == 4)
		szFileName = "maguserh.htm";
	else
		szFileName = "chatover.htm";

	parent.openNewWindow('<%=bstrVirtRoot%>/help/' + szFileName,'inlineHelpWindow',450,450);
}

</script>

</HEAD>

<BODY  bgcolor="<%=bcTaskbar%>" text="<%=bcTitleFnt%>" link="<%=bcTaskFnt%>" vlink="<%=bcTaskFnt%>" alink="<%=bcTaskFnt%>">
<FORM name=dhtmForm method=post action="" onSubmit="parent.updatePage(<%=iPages%>); return(false);">

<!-- TOOL BAR -->
<TABLE BORDER=0 width=100% CELLSPACING=0 CELLPADDING=0>
<tr>
    <td align="left" valign="middle" NOWRAP>
		<img src="<%=bstrVirtRoot%>/images/divthick.gif" align="middle" width=5 height=26>

		<!--new channel //-->
		<% If iCurrMainWin = MAINWIN_CHANNEL Then %>

			<% If isMSIE Then %>
			<a onClick="parent.composeWindow(<%=COMPOSE_CHANNEL%>, 0)" onMouseOver="buttonState('chan', 1)" onMouseOut="buttonState('chan', 0)" onMouseDown="buttonState('chan', 2)">
			<% Else %>
			<a href="Javascript:parent.composeWindow(<%=COMPOSE_CHANNEL%>, 0)">
			<% End If %>
			<img src="<%=bstrVirtRoot%>/images/chan.gif" name="chan" width=23 height=22 align="middle" alt="New channel" border=0></a>

		<% Else %>
			<img src="<%=bstrVirtRoot%>/images/chan_gs.gif" width=23 height=22 align="middle" alt="New channel" border=0>
		<% End If %>

		<!--new ban //-->
		<% If iCurrMainWin = MAINWIN_BAN Then %>

			<% If isMSIE Then %>
			<a onClick="parent.composeWindow(<%=COMPOSE_BAN%>, 0)" onMouseOver="buttonState('ban', 1)" onMouseOut="buttonState('ban', 0)" onMouseDown="buttonState('ban', 2)">
			<% Else %>
			<a href="Javascript:parent.composeWindow(<%=COMPOSE_BAN%>, 0)">
			<% End If %>
			<img src="<%=bstrVirtRoot%>/images/ban.gif" name="ban" width=23 height=22 align="middle" alt="New ban" border=0></a>

		<% Else %>
			<img src="<%=bstrVirtRoot%>/images/ban_gs.gif" width=23 height=22 align="middle" alt="New ban" border=0>
		<% End If %>

		<IMG SRC="<%=bstrVirtRoot%>/images/divider.gif" align="middle" width=4 height=24 >
	
		<!-- page view //-->
		<% If iCurrMainWin = MAINWIN_CHANNEL Or iCurrMainWin = MAINWIN_BAN Then %>

			<% If isMSIE Then %>
			<a onClick="parent.clickPrev()" onMouseOver="buttonState('arwlf', 1)" onMouseOut="buttonState('arwlf', 0)" onMouseDown="buttonState('arwlf', 2)">
			<% Else %>
			<a href="JavaScript:parent.clickPrev()">
			<% End If %>
			<IMG SRC="<%=bstrVirtRoot%>/images/arwlf.gif" WIDTH=23 HEIGHT=22 name="arwlf" alt="Go to the previous page" border=0 align="texttop"></a>
		
			<a href="JavaScript:parent.updatePage(<%=iPages%>)"><FONT SIZE=2 color="<%=bcTaskFnt%>"><b>Page</b></FONT></a>
			<INPUT TYPE="text" NAME="Page" VALUE="1" size=5 MAXLENGTH=5>
			<FONT color="<%=bcTaskFnt%>" size=2>of <b><%=iPages%></b></FONT>
			
			<% If isMSIE Then %>
			<a onClick="parent.clickNext(<%=iPages%>)" onMouseOver="buttonState('arwrt', 1)" onMouseOut="buttonState('arwrt', 0)" onMouseDown="buttonState('arwrt', 2)">
			<% Else %>
			<a href="JavaScript:parent.clickNext(<%=iPages%>)">
			<% End If %>

			<IMG SRC="<%=bstrVirtRoot%>/images/arwrt.gif" name="arwrt" WIDTH=23 HEIGHT=22 alt="Go to the next page" border=0 align="texttop"></a>
		
		<% Else %>

			<IMG SRC="<%=bstrVirtRoot%>/images/arwlf_gs.gif" WIDTH=23 HEIGHT=22 alt="Go to the previous page" border=0 align="texttop">		
			<FONT SIZE=2 color="<%=bcDarkGrey%>"><b>Page</b></FONT>
			<INPUT TYPE="text" NAME="Page" VALUE="1" size=5 MAXLENGTH=5 disabled>
			<FONT color="<%=bcDarkGrey%>" size=2>of <b><%=iPages%></b></FONT>
			<IMG SRC="<%=bstrVirtRoot%>/images/arwrt_gs.gif" WIDTH=23 HEIGHT=22 alt="Go to the next page" border=0 align="texttop">
		<% End If %>

		<IMG SRC="<%=bstrVirtRoot%>/images/divider.gif" align="middle" width=4 height=24>
		
		<!--logoff //-->
		<% If isMSIE Then %>
		<a onClick="parent.logoff()" onMouseOver="buttonState('logoff', 1)" onMouseOut="buttonState('logoff', 0)" onMouseDown="buttonState('logoff', 2)">
		<% Else %>
		<a href="Javascript:parent.logoff()">
		<% End If %>
		<img src="<%=bstrVirtRoot%>/images/logoff.gif" name="logoff" width=23 height=22 align="middle" alt="Logoff" border=0></a>

		<IMG SRC="<%=bstrVirtRoot%>/images/divider.gif" align="middle" width=4 height=24>
		
		<!--help //-->
		<% If isMSIE Then %>
		<a onClick="openHelpWindow()" onMouseOver="buttonState('help', 1)" onMouseOut="buttonState('help', 0)" onMouseDown="buttonState('help', 2)">
		<% Else %>
		<a href="JavaScript:openHelpWindow()">
		<% End If %>
        <IMG SRC="<%=bstrVirtRoot%>/images/help.gif" name="help" alt="Get help information on the current window" align="middle" border=0 width=23 height=22></a>

	</td>
</tr>
</TABLE>

</FORM>
</BODY>
</HTML>

[ RETURN TO DIRECTORY ]