<%Dim rscat, sqlcat
set rscat=server.CreateObject("ADODB.Recordset")
sqlcat="SELECT art_category.Cat_id, art_category.Cat_Name FROM art_category ORDER BY art_category.Cat_Name"
'response.write sqlcat
rscat.Open sqlcat,dbc,adOpenKeyset,adLockReadOnly
if not rscat.EOF then
do while not rscat.EOF %>
<%
rscat.MoveNext
loop
end if%>
<%Dim rsart, sqlart
set rsart=server.CreateObject("ADODB.Recordset")
sqlart="SELECT art_article.*, art_author.author_name, art_author.author_id FROM art_author INNER JOIN art_article ON art_author.author_id = art_article.art_author_id WHERE art_article.art_id="&artid&""
'response.write sqlart
rsart.Open sqlart,dbc,adOpenKeyset,adLockReadOnly
if not rsart.EOF then
%>
|
<%Response.write rsart("art_title") %>
|
| By
"><%=rsart("author_name")%>
-
<%Response.write day(rsart("art_date")) & "/" & month(rsart("art_date")) & "/" & year(rsart("art_date"))%>
.
<%Response.write rsart("art_text")%>
|
<%end if%>
|
|
