|
<%
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 %>
|
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 %>
|