| Available
Categories |
<%
dim rsoGetCategory, rsoGetTopics, getCategoryName, getCategoryID, strSQL, strSQL1
set rsoGetCategory=Server.CreateObject("ADODB.Recordset")
set rsoGetTopics=Server.CreateObject("ADODB.Recordset")
strSQL="select * from tblCategory order by CategoryName"
rsoGetCategory.Open strSQL,myConn,3,3
strSQL1="select * from tblSubCategory"
rsoGetTopics.Open strSQL1,myConn,3,3
%>
<%
if rsoGetCategory.RecordCount=0 then
%>
| No
Record(s) found. |
<%
else
dim setTopicCount
setTopicCount=0
do while not rsoGetCategory.EOF
getCategoryID=Trim(rsoGetCategory.Fields("CategoryID"))
getCategoryName=Trim(rsoGetCategory.Fields("CategoryName"))
rsoGetTopics.Filter="CategoryID=" & getCategoryID
if rsoGetTopics.RecordCount=0 then
setTopicCount="0"
else
setTopicCount=rsoGetTopics.RecordCount
end if
%>
| |
<%
rsoGetCategory.MoveNext
if not rsoGetCategory.EOF then
getCategoryID=Trim(rsoGetCategory.Fields("CategoryID"))
getCategoryName=Trim(rsoGetCategory.Fields("CategoryName"))
rsoGetTopics.Filter="CategoryID=" & getCategoryID
if rsoGetTopics.RecordCount=0 then
setTopicCount="0"
else
setTopicCount=rsoGetTopics.RecordCount
end if
%>
|
<%
rsoGetCategory.MoveNext
end if
if not rsoGetCategory.EOF then
getCategoryID=Trim(rsoGetCategory.Fields("CategoryID"))
getCategoryName=Trim(rsoGetCategory.Fields("CategoryName"))
rsoGetTopics.Filter="CategoryID=" & getCategoryID
if rsoGetTopics.RecordCount=0 then
setTopicCount="0"
else
setTopicCount=rsoGetTopics.RecordCount
end if
%>
|
<%
rsoGetCategory.MoveNext
end if
Loop
end if
set rsoGetCategory=NOTHING
set myConn=NOTHING
%>
|
|
|