Tree Applet Parameter Syntax
Dynamically generating HTML code
The HTML code may be dynamically generated using:
  • MS ASP (Microsoft Active Server Page)
  • MS IIS (Microsoft Internet Information Server)
  • ODBC (Open Database Connectivity) link to MS Access database
Note
Note 		 As a sophisticated Commander (wizard or management tool) is provided, this method is offered as an optional extra for those with some experience with HTML coding.
Auscomp therefore regrets that it is unable to offer support relating to either.
ASP - File
<html>
<head>
<title>1st JAVA Navigator</title>
</head>

<body bgcolor="#FFFFFF">

<APPLET CODEBASE="." NAME="JNaviTabTree" ARCHIVE="JAVATabTreeR.jar" CODE="JAVATabTreeR.class" WIDTH=225 HEIGHT=270>

    <PARAM NAME="Copyright" VALUE="(c)1997-1999 AUSCOMP (www.auscomp.com)">
    <PARAM NAME="PROXY" VALUE="No">
    <PARAM NAME="IMAGEDIR" VALUE="JCLASS/">
    <PARAM NAME="TAB_BG" VALUE="255,255,255">
    <PARAM NAME="TAB_FG" VALUE="95,87,29">
    <PARAM NAME="TAB_MOUSEOVER" VALUE="0,0,0">
    <PARAM NAME="TAB_FONT" VALUE="Arial; PLAIN;12">
    <PARAM NAME="TABONBOTTOM" VALUE="No">
    <PARAM NAME="TAB_DEFAULT" VALUE="999">

    <PARAM NAME="TREE_FONT" VALUE="Arial; PLAIN;11">
    <PARAM NAME="TREE_BG" VALUE="255,255,255">
    <PARAM NAME="TREE_FG" VALUE="0,0,0">
    <PARAM NAME="TREE_SEL_BG" VALUE="0,0,0">
    <PARAM NAME="TREE_SEL_FG" VALUE="255,255,0">
    <PARAM NAME="TREE_TOOLTIPBACKCOLOR" VALUE="255,255,231">
    <PARAM NAME="TREE_TOOLTIPFORECOLOR" VALUE="0,0,0">
    <PARAM NAME="TREE_MOUSEOVER" VALUE="128,128,0">
    <PARAM NAME="TREE_LINECOLOR" VALUE="0,0,0">
    <PARAM NAME="TREE_LEAFCOLOR" VALUE="0,0,0">
    <PARAM NAME="TREE_FOLDERCCOLOR" VALUE="0,0,0">
    <PARAM NAME="TREE_FOLDEROCOLOR" VALUE="128,128,0">
    <PARAM NAME="TREE_MOUSEOVERFRAMECOLOR" VALUE="0,0,0">
    <PARAM NAME="TREE_BG_IMAGE" VALUE="JNaviTreeApplet.gif">
    <PARAM NAME="TREE_BORDER" VALUE="No">
    <PARAM NAME="TREE_TOOLTIP" VALUE="Yes">
    <PARAM NAME="TREE_DOUBLECLICK" VALUE="No">
    <PARAM NAME="TREE_AUTOEXPAND" VALUE="No">
    <PARAM NAME="TREE_MOUSEOVERFRAME" VALUE="Line">
    <PARAM NAME="TREE_STYLE" VALUE="EXXA">
    <PARAM NAME="FOLDER_CLOSED" VALUE="BookC.gif">
    <PARAM NAME="FOLDER_OPEN" VALUE="BookO.gif">
    <PARAM NAME="LEAF" VALUE="OldPaper.gif">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PUT.HERE.YOUR.ODBC.DSM.NAME"
sql="{Call SelectAll}"
Set TreeRS = Conn.Execute(sql)
%>

<%
x = 9
Do While Not TreeRS.EOF
    if x <> TreeRS("TabID") THEN%>
<PARAM NAME="TAB<%=TreeRS("TabID")%>" VALUE="<%=TreeRS("TabLabel")%>">
    <%end if%>       
<PARAM NAME="T<%=TreeRS("TabID")%>I<%=TreeRS("TreeNumber")%>" VALUE="<%=TreeRS("BranchText")%>; <%=TreeRS("URL")%>; <%=TreeRS("Frame")%>; <%=TreeRS("Level")%>; <%=TreeRS("CollapsedImage")%>; <%=TreeRS("ExpandedImage")%>; <%=TreeRS("MouseOverText")%>;
<%=TreeRS("URL2")%>; <%=TreeRS("Frame2")%>; <%=TreeRS("OpenExpanded")%>">
    <%
    x = TreeRS("TabID")
    TreeRS.MoveNext
Loop
TreeRS.close
Conn.close

%>
</APPLET>
</body>
</html>

btnGoTop.gif (891 bytes)Scroll back to top

MS Access - Tables

Table name:

Tabs  

Fields:

 TabID Number

              

TabLabel Text

Table name:

Tree  

Fields:

 TabID Number

              

TreeNumber Number

              

BranchText Text

              

URL Text

              

Frame Text

              

Level Number

              

ExpandedImage Text

              

CollapsedImage Text

              

MouseOverText Text

              

URL2 Text

              

Frame2 Text

              

OpenExpanded Text

btnGoTop.gif (891 bytes)Scroll back to top
Query (SQL Query named "SelectAll")

SELECT DISTINCTROW Tabs.TabID, Tabs.TabLabel, Tree.TreeNumber, Tree.BranchText, Tree.URL, Tree.Frame, Tree.Level, Tree.CollapsedImage, Tree.ExpandedImage, Tree.MouseOverText, Tree.URL2, Tree.Frame2, Tree.OpenExpanded

FROM Tabs INNER JOIN Tree ON Tabs.TabID = Tree.TabID

ORDER BY Tabs.TabID, Tree.TreeNumber;

btnGoTop.gif (891 bytes)Scroll back to top

(c) 1996-1999 Auscomp - World Wide. All Rights Reserved.