|
<%
CategoryID = Request.QueryString("Category")
Set rsCategories = CreateObject("ADODB.Recordset")
If Len(CategoryID) > 0 Then
str="SELECT * FROM Categories WHERE CategoryID="&CategoryID&" "
rsCategories.Open str,objConn
nm=rsCategories("Name")
DisplayClicks = rsCategories("DisplayClicks")
%>
<% If Not IsNull(CategoryID) Then %>
<%
Set rsCategories1 = CreateObject("ADODB.Recordset")
Set rsCategories1.ActiveConnection = objConn
rsCategories1.LockType = 2
rsCategories1.Open "Categories"
Dim tt
dim depth
Function getCategories(CatID)
tt =""
depth=0
getParentCategories CatID
End Function
Function getParentCategories(CatID)
'depth=depth & "-"
depth=depth+2
rsCategories1.Find "CategoryID = " & CatID, 0, 1 , 1
If IsNull(rsCategories1("Parent")) Then
Response.write rsCategories1("Name")&">>"& tt
'getParentCategories = tt & rsCategories1("Name")
Else
tt=rsCategories1("Name")'&">>" & tt
getParentCategories(rsCategories1("Parent"))
End If
End Function
Function CloseGetCategories()
'rsCategories.Close
'Set rsCategories = Nothing
End Function
%>
|
Category:<%= getCategories(CategoryID) %>
<% End If %>
<%= rsCategories("Description") %>
|
<%
rsCategories.Close
gsSQL="SELECT * FROM Categories WHERE Parent="& CategoryID&" Order BY Name"
Else
gsSQL="SELECT * FROM Categories WHERE Parent Is Null Order BY Name"
End If
rsCategories.Open gsSQL, objConn,3,3
counter=0
If not rsCategories.EOF Then
%>
<%While Not rsCategories.EOF
if counter=3 then
%>
<%end if%>
">
 " border="0" Alt="click to View this Category" width=100>
">
<%=rsCategories("Name")%>
|
<% if counter=4 then
counter=0
%>
<%
end if
counter=counter+1
rsCategories.MoveNext
wend
%>
<% End If %>
|
<%else%>
<%end if%>