thanks
I am not sure where to close off each one? Which one should I pick on?
<body>
<form id="chartForm" action="courseToolTest.asp" method="POST">
<input type="hidden" name="selectedNode_ID" value="1">
<<<<<<<<<<<<<<<<<<<< here is the left nav .inc file that needs a
form>>>>>>>>>>>>>>>>>>>>>
<form name="ccoptin" action="http://ui.constantcontact.com/d.jsp"
target="newWin" method="post">
</form>
<<<<<<<<<<<<<< pick on this one?>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<a name="topofpage"></a>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center"
>
<tr>
<td colspan="5" valign="top">
<!-- #Include file="../../inc/headerChild.inc" --></td>
</tr>
<tr>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="13
9"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="60
0"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
</tr>
<tr>
<td align="left" valign="top">
<!--#Include file="../../inc/leftNavChild.inc" -->
</td>
<td valign="top" class="clrspacerbk"><img src="../../images/clrspacer.gif"
width="1" height="800"></td>
<td align="left" valign="top">
<!-- InstanceBeginEditable name="mainBody" -->
<table width="600" border="0" cellspacing="0" cellpadding="6">
<tr>
<td height="212" align="left" valign="top" scope="col"><h2
id="style1">Course Finder Tool</h2>
<FONT class="body">Use our <strong>Course Finder</strong> tool to
determine which real estate course or package best meets your needs. Whether
you're located in <st1:State w:st="on">Washington</st1:State> or <st1:place
w:st="on"><st1:State w:st="on">California</st1:State></st1:place>, Rockwell
has
the right real estate course for you. <br><br>All you have to do is make a f
ew
simple choices, and our Course Finder will take you to the course(s) you nee
d.
Click on one of the green buttons below to get started. </FONT>
<%
Set oXChart = Server.CreateObject("Microsoft.XMLDOM")
With oXChart
.Async = False
.Load(sXMLPath)
End With
%>
<table border=0 cellpadding=0 cellspacing=0>
<%
'Set deepest level (that's not empty)
For I = 0 To UBound(aNodeHeirarchyPath)
If aNodeHeirarchyPath(I) <> "" Then
nDeepestLevel = I
End If
Next
'correct for level 0
nDeepestLevel = nDeepestLevel + 1
'Build each branch of the tree, down to the item that was selected.
For I = 0 To UBound(aNodeHeirarchyPath)
If aNodeHeirarchyPath(I) <> "" Then
Call BuildTreeBranch (aNodeHeirarchyPath(I), I, nDeepestLevel - I)
End If
Next
%>
</table>
</td>
</tr>
<tr>
<td height="339" align="left" valign="top" class="body" scope="col">We
hope you find the Course Finder helpful. If you need further assistance in
selecting a real estate course, feel free to call us at 1-800-221-9347 or em
ail
us at <a href="mailto:info@rockwellinstitute.com"
id="nav3">info@rockwellinstitute.com</a>.</td>
</tr>
</table>
<!-- InstanceEndEditable -->
</td>
<td valign="top" class="clrspacerbk"><img src="../../images/clrspacer.gif"
width="1" height="800"></td>
</tr>
<tr>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="13
9"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="60
0"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
<td class="clrspacerbk"><img src="../../images/site/clrspacer.gif" width="1"
height="1"></td>
</tr>
<tr>
<td colspan="5"><!--#Include file="../../inc/footerChild.inc" --></td>
</tr>
</table>
<p> </p>
</body>
<!-- InstanceEnd --></html>
<%
Set oXChart = Nothing
Sub BuildTreeBranch (ByVal sNodeID, ByVal nIndentation, ByVal nColSpan)
'Response.Write(sNodeID & ":" & nSelectionID & "<br>")
Dim oRoot, oAnswers
Dim K,L
Dim tempID
Set oRoot = oXChart.documentElement.SelectSingleNode("//Q[@ID='" & sNode
ID &
"']")
Response.Write("<tr>")
'create indentation cells
For L = 1 To nIndentation
Response.Write("<td></td>")
Next
%>
<td class="q" colspan="<%=nColSpan%>">
<% If oRoot.GetAttribute("TEXT") = "LINK" Then
Response.Write(oRoot.SelectSingleNode("LINKBODY").Text)
Else
Response.Write(oRoot.GetAttribute("TEXT"))
End If
%>
</td></tr>
<% If oRoot.selectNodes("Q").Length > 0 Then
Set oAnswers = oRoot.selectNodes("Q")
Response.Write("<tr>")
'create indentation cells
For L = 1 To nIndentation
Response.Write("<td></td>")
Next
%> <td colspan="<%=nColSpan%>">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td><img src="../../images/Tree_StepIn.gif" width="13" height="13"></td>
<% 'Loop through all answers except last one. Last loop should not have ima
ge
after.
For K = 0 To oAnswers.Length - 2
tempID = oAnswers(K).getAttribute("ID") %>
<td><input id="<%=tempID%>" type="text" style="width: 187px"
class="bttn_sm_flow" value="<%=oAnswers(K).getAttribute("ANS")%>"
onclick="openNode('<%=tempID%>')"></td>
<td><img src="../../images/Tree_StepOv.gif" width="12" height="14"></td>
<% Next
tempID = oAnswers(K).getAttribute("ID") %>
<td><input id="<%=tempID%>" type="text" style="width: 187px"
class="bttn_sm_flow" value="<%=oAnswers(K).getAttribute("ANS")%>"
onclick="openNode('<%=tempID%>')"></td>
</tr>
</table>
</td>
</tr>
<% End If
End Sub
%>
|
12-30-05 - 11:29 PM 
