| |
nukeboy
Posts: 10
Score: 0
Joined: 5/22/2001
From: USA
Status: offline
|
've just taken over the post of Internet develeoper at a hospital.
The site has three frames (top, left, main), with the left containing a
navigation bar, which can be showing or hidden.
I've got the code for the page, but if I try to use it on a different
page I'm told I need to eneter a user name. How can I remove this
user name rubbish?
Here is the code:
<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Expires = 0%>
<!--#include file="src/dpsite.asp"-->
<!--#include file="src/dpapps.asp"-->
<html>
<head>
<meta HTTP-EQUIV="PRAGMA"
CONTENT="NO-CACHE">
<title>Navigation</title>
<style>
<!--#include virtual ="/dp/styles/nstyle.css"-->
</style>
</head>
<body leftmargin="0" topmargin="0"
background="images/nbackground.gif" link="#FFFFFF"
vlink="#FFFFFF" alink="#FFFFFF">
<%
bBlankShow = False
bNavShow = True
strBlankClass = ""
strNavClass = ""
If Session("BrowserType") = "IE4" Then
bBlankShow = True
If Request("show") = "n" Then
strBlankClass = "class=""NavShow"""
strNavClass = "class=""NavHide"""
Else
strBlankClass = "class=""NavHide"""
strNavClass = "class=""NavShow"""
End If
Else
If Request("show") = "n" Then
bBlankShow = True
bNavShow = False
End If
End If
If bBlankShow Then
%>
<table ID="dpnavshow" CELLPADDING="0"
CELLSPACING="0" WIDTH="100%" <%=strBlankClass%>>
<tr>
<td><a HREF="JavaScript:navShow();"><img BORDER="0"
SRC="images/navshow.gif"
alt="Show Menu" WIDTH="11" HEIGHT="85"></a> </td>
</tr>
</table>
<%End If%>
<%If bNavShow Then%>
<table ID="dpnavhide" CELLPADDING="1"
CELLSPACING="1" WIDTH="90%" <%=strNavClass%>>
<tr>
<td valign="top" align="center" width="100%"><a
HREF="JavaScript:navHide();"><img
BORDER="0" SRC="images/navhide.gif" alt="Hide Menu"
WIDTH="100" HEIGHT="11"></a> </td>
</tr>
<tr>
<td valign="top" width="100%"></td>
</tr>
</table>
<%End If%>
<%If bNavShow Then%>
<table ID="dpnavtopics" CELLPADDING="1"
CELLSPACING="1" WIDTH="90%" <%=strNavClass%>>
<%
nCount = GetFrameTopics()
If nCount > 0 Then
Set objTopic = objTopicMgr.Topics(1)%>
<tr>
<td valign="top" width="100%"><table CELLPADDING="1"
CELLSPACING="1" WIDTH="100%">
<tr>
<td valign="top" width="10%"><a
href="/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>"
target="dpzone"><img
src="/dp/images/navhome.gif" border="0" alt="Back to last page"
WIDTH="12" HEIGHT="13"></a>
</td>
<td align="left" valign="top" width="90%"><a
href="/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>"
target="dpzone"><%=objTopic.Title%></a> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" width="100%"><hr>
</td>
</tr>
<% If nCount > 1 Then
If Session("BrowserType") = "IE3" Then nUseCache = 0 Else
nUseCache = 1
%>
<tr>
<td valign="top" width="100%"><table CELLPADDING="1"
CELLSPACING="1" WIDTH="100%">
<% For nIndex = 2 To nCount
Set objTopic = objTopicMgr.Topics(nIndex)%>
<tr>
<td valign="top" width="10%"><a
href="/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>"
target="dpzone"
onClick="navLink(this, <%=objTopic.Id%>,
<%=nUseCache%>;"><img
src="/dp/images/navmem.gif" border="0" alt="Back to last
<%=objTopic.Title%> folder"
WIDTH="12" HEIGHT="13"></a> </td>
<td align="left" valign="top" width="90%"><a
href="/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>"
target="dpzone"><%=objTopic.Title%></a> </td>
</tr>
<% Next%>
</table>
</td>
</tr>
<tr>
<td valign="top" width="100%"><hr>
</td>
</tr>
<% End If%>
<% End If%>
</table>
<%End If%>
</body>
</html>
Thanks
|
|
Printable Version
hide navigation frame - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread