<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<%
dim rsArticles, sSQL, gStr
set rsArticles = server.createobject("adodb.recordset")
rsArticles.cursorlocation = 3
sSQL = sSQL & "SELECT TOP 10 Articles.Article_ID, Articles.Article_Title, Articles.Article_Excerpt, "
sSQL = sSQL & "Articles.Article_Content, Articles.Article_Posted, Articles.Article_Comments, "
sSQL = sSQL & "Articles.Article_Images, Categories.Category_ID, Categories.Category_Title, Users.User_ID, "
sSQL = sSQL & "Users.User_Name FROM FB_Users AS Users INNER JOIN (FB_Categories AS Categories "
sSQL = sSQL & "INNER JOIN FB_Articles AS Articles ON Categories.Category_ID = Articles.Article_Category_ID) "
sSQL = sSQL & "ON Users.User_ID = Articles.Article_User_ID WHERE Article_Status = 1 AND Article_Level = 0 "
sSQL = sSQL & "ORDER BY Article_Posted DESC;"
rsArticles.open sSQL, adoConn
Do While Not rsArticles.EOF
gStr = gStr & "
" & vbCrLf
rsArticles.MoveNext
Loop
%>
<%=gStr%>