<%Dim rscat1, sqlcat1
set rscat1=server.CreateObject("ADODB.Recordset")
'response.write sqlcat1
rscat1.Open sqlcat1,dbc,adOpenKeyset,adLockReadOnly
if not rscat1.EOF then
do while not rscat1.EOF %>
|
<%=rscat1("Cat_Name")%>:
|
<%Dim rsart, sqlart, count
set rsart=server.CreateObject("ADODB.Recordset")
sqlart="SELECT art_article.art_id, art_article.art_title FROM art_article where art_article.art_cat_id="&rscat1("Cat_id")&" ORDER BY art_article.art_date desc"
'response.write sqlart
rsart.Open sqlart,dbc,adOpenKeyset,adLockReadOnly
if not rsart.EOF then
count=1
do while not rsart.EOF %>
| <%=count%>.
"><%=rsart("art_title")%> |
<%
rsart.MoveNext
count=count+1
loop
rsart.close
end if%>
| |
<%
rscat1.MoveNext
loop
end if%>
|
