<%@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 gStr = gStr & "

" & vbCrLf gStr = gStr & " " & vbCrLf gStr = gStr & " " gStr = gStr & rsArticles("Article_Title").Value & vbCrLf gStr = gStr & "" & vbCrLf gStr = gStr & " " & vbCrLf gStr = gStr & "

" & vbCrLf gStr = gStr & "

" & vbCrLf gStr = gStr & "" & vbCrLf gStr = gStr & rsArticles("Article_Excerpt").value gStr = gStr & " " gStr = gStr & " more..." & vbCrLf gStr = gStr & "" & vbCrLf gStr = gStr & "

" & vbCrLf gStr = gStr & "

" & vbCrLf rsArticles.MoveNext Loop %>

Insurance Articles

<%=gStr%>