Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

hide navigation frame

Status
Not open for further replies.
neilmunn

neilmunn

Technical User
Jan 9, 2001
5
0
0
GB
I'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=&quot;VBSCRIPT&quot; %>
<%Response.Expires = 0%>
<!--#include file=&quot;src/dpsite.asp&quot;-->
<!--#include file=&quot;src/dpapps.asp&quot;-->
<html>

<head>
<meta HTTP-EQUIV=&quot;PRAGMA&quot; CONTENT=&quot;NO-CACHE&quot;>
<title>Navigation</title>
<style>
<!--#include virtual =&quot;/dp/styles/nstyle.css&quot;-->
</style>
</head>

<body leftmargin=&quot;0&quot; topmargin=&quot;0&quot; background=&quot;images/nbackground.gif&quot; link=&quot;#FFFFFF&quot;
vlink=&quot;#FFFFFF&quot; alink=&quot;#FFFFFF&quot;>
<%

bBlankShow = False
bNavShow = True
strBlankClass = &quot;&quot;
strNavClass = &quot;&quot;

If Session(&quot;BrowserType&quot;) = &quot;IE4&quot; Then
bBlankShow = True
If Request(&quot;show&quot;) = &quot;n&quot; Then
strBlankClass = &quot;class=&quot;&quot;NavShow&quot;&quot;&quot;
strNavClass = &quot;class=&quot;&quot;NavHide&quot;&quot;&quot;
Else
strBlankClass = &quot;class=&quot;&quot;NavHide&quot;&quot;&quot;
strNavClass = &quot;class=&quot;&quot;NavShow&quot;&quot;&quot;
End If
Else
If Request(&quot;show&quot;) = &quot;n&quot; Then
bBlankShow = True
bNavShow = False
End If
End If


If bBlankShow Then
%>

<table ID=&quot;dpnavshow&quot; CELLPADDING=&quot;0&quot; CELLSPACING=&quot;0&quot; WIDTH=&quot;100%&quot; <%=strBlankClass%>>
<tr>
<td><a HREF=&quot;JavaScript:navShow();&quot;><img BORDER=&quot;0&quot; SRC=&quot;images/navshow.gif&quot;
alt=&quot;Show Menu&quot; WIDTH=&quot;11&quot; HEIGHT=&quot;85&quot;></a> </td>
</tr>
</table>
<%End If%>
<%If bNavShow Then%>

<table ID=&quot;dpnavhide&quot; CELLPADDING=&quot;1&quot; CELLSPACING=&quot;1&quot; WIDTH=&quot;90%&quot; <%=strNavClass%>>
<tr>
<td valign=&quot;top&quot; align=&quot;center&quot; width=&quot;100%&quot;><a HREF=&quot;JavaScript:navHide();&quot;><img
BORDER=&quot;0&quot; SRC=&quot;images/navhide.gif&quot; alt=&quot;Hide Menu&quot; WIDTH=&quot;100&quot; HEIGHT=&quot;11&quot;></a> </td>
</tr>
<tr>
<td valign=&quot;top&quot; width=&quot;100%&quot;></td>
</tr>
</table>
<%End If%>
<%If bNavShow Then%>

<table ID=&quot;dpnavtopics&quot; CELLPADDING=&quot;1&quot; CELLSPACING=&quot;1&quot; WIDTH=&quot;90%&quot; <%=strNavClass%>>
<%
nCount = GetFrameTopics()
If nCount > 0 Then
Set objTopic = objTopicMgr.Topics(1)%>
<tr>
<td valign=&quot;top&quot; width=&quot;100%&quot;><table CELLPADDING=&quot;1&quot; CELLSPACING=&quot;1&quot; WIDTH=&quot;100%&quot;>
<tr>
<td valign=&quot;top&quot; width=&quot;10%&quot;><a
href=&quot;/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>&quot; target=&quot;dpzone&quot;><img
src=&quot;/dp/images/navhome.gif&quot; border=&quot;0&quot; alt=&quot;Back to last page&quot; WIDTH=&quot;12&quot; HEIGHT=&quot;13&quot;></a>
</td>
<td align=&quot;left&quot; valign=&quot;top&quot; width=&quot;90%&quot;><a
href=&quot;/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>&quot; target=&quot;dpzone&quot;><%=objTopic.Title%></a> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign=&quot;top&quot; width=&quot;100%&quot;><hr>
</td>
</tr>
<% If nCount > 1 Then
If Session(&quot;BrowserType&quot;) = &quot;IE3&quot; Then nUseCache = 0 Else nUseCache = 1
%>
<tr>
<td valign=&quot;top&quot; width=&quot;100%&quot;><table CELLPADDING=&quot;1&quot; CELLSPACING=&quot;1&quot; WIDTH=&quot;100%&quot;>
<% For nIndex = 2 To nCount
Set objTopic = objTopicMgr.Topics(nIndex)%>
<tr>
<td valign=&quot;top&quot; width=&quot;10%&quot;><a
href=&quot;/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>&quot; target=&quot;dpzone&quot;
onClick=&quot;navLink(this, <%=objTopic.Id%>, <%=nUseCache%>;&quot;><img
src=&quot;/dp/images/navmem.gif&quot; border=&quot;0&quot; alt=&quot;Back to last <%=objTopic.Title%> folder&quot;
WIDTH=&quot;12&quot; HEIGHT=&quot;13&quot;></a> </td>
<td align=&quot;left&quot; valign=&quot;top&quot; width=&quot;90%&quot;><a
href=&quot;/dp/src/apps/fztopicdet.asp?TopicId=<%=objTopic.Id%>&quot; target=&quot;dpzone&quot;><%=objTopic.Title%></a> </td>
</tr>
<% Next%>
</table>
</td>
</tr>
<tr>
<td valign=&quot;top&quot; width=&quot;100%&quot;><hr>
</td>
</tr>
<% End If%>
<% End If%>
</table>
<%End If%>
</body>
</html>

Thanks

Neil
neilmunn@ukonline.co.uk
 
Sort by date Sort by votes
I dont see anything about users in the code..
maybe the problem has something to do with the
security setting for your folder/page instead ?

Peter
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Chenna Krishna
  • Locked
  • Question
Create object of System.EnterpriseServices.Internal.Publish requires .net framework 3.5
Replies
1
Views
40
guitarzan
guitarzan
Briandr
  • Locked
  • Question
Hide command window when loading
Replies
4
Views
56
guitarzan
guitarzan
UnsolvedCoding
  • Locked
  • Question
Redirect .net Framework 4.0 in VB Express 2010
Replies
2
Views
27
UnsolvedCoding
UnsolvedCoding
Sdudart
  • Locked
  • Question
How to hide html text when a recordset field is empty
Replies
2
Views
35
guitarzan
guitarzan
crackoo
  • Locked
  • Question
[HTA] How to hide the CMD prompt on HTA Script ?
Replies
3
Views
56
crackoo
crackoo

Part and Inventory Search

Sponsor

Back
Top