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