Results 1 to 2 of 2

Thread: Hide Navigation Frame

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2001
    Posts
    1

    Question

    <%@ 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

    Neil Munn
    [email protected]

  2. #2
    Frenzied Member sebs's Avatar
    Join Date
    Sep 2000
    Location
    Aylmer,Qc
    Posts
    1,606
    can u be more clear!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width