You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
813 B

<%@ Page Language="VB" ASPCOMPAT="TRUE" Debug="true" %>
<%@ Import Namespace="obout_ASPTreeView_2_NET" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim oTree As obout_ASPTreeView_2_NET.Tree = New obout_ASPTreeView_2_NET.Tree()
Dim oConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("../App_Data/categories.mdb"))
oConn.Open()
' get all the categories from the database
Dim sQuery As String
sQuery = "SELECT CategoryID, ParentID, CategoryText, Description, DateAdded, PriceRange, [Level], Icon FROM Categories ORDER BY [Level] ASC"
Dim oCommand As OleDbCommand