บทความเรื่องปลาสวยงาม

<%@LANGUAGE="VBSCRIPT"%> <% dim pidarticle pidarticle = Request.QueryString("idarticle") %> <% set rsUpdateViews = Server.CreateObject("ADODB.Recordset") rsUpdateViews.ActiveConnection = articleConn_STRING rsUpdateViews.Source = "UPDATE articles SET article_visits=article_visits+1 WHERE idarticle="& pidarticle rsUpdateViews.Open() %> <% set rsArticle = Server.CreateObject("ADODB.Recordset") rsArticle.ActiveConnection = articleConn_STRING rsArticle.Source = "SELECT * FROM articles WHERE idarticle = " & pidarticle rsArticle.Open() %> <% DIM ptext set rsRecent = Server.CreateObject("ADODB.Recordset") rsRecent.ActiveConnection = articleConn_STRING rsRecent.Source = "SELECT * FROM articles WHERE article_active=-1 and article_featured = 0 ORDER BY idarticle DESC " rsRecent.Open() %> <% Dim Repeat__numRows Repeat__numRows = 10 Dim Repeat__index Repeat__index = 0 rsRecent_numRows = rsRecent_numRows + Repeat__numRows %> บทความเรื่องปลาสวยงาม ">

Home | หน้าบทความ | ถามตอบปัญหาการเพาะเลี้ยง | Admin

&title=<%=(rsArticle.Fields.Item("article_title").Value)%>">

<%= FormatDateTime(date,1) %>

<% if rsArticle.Fields.Item("article_image").Value <>"" then %>

" align=right border=0> <% end if %> <%=(rsArticle.Fields.Item("article_title").Value)%>
<%=(rsArticle.Fields.Item("article_date").Value)%>, by <%=(rsArticle.Fields.Item("article_author").Value)%>
&title=<%=(rsArticle.Fields.Item("article_title").Value)%>">

<%=(rsArticle.Fields.Item("article_body").Value)%>

บทความ

<% While ((Repeat__numRows <> 0) AND (NOT rsRecent.EOF)) %>

"><%=(rsRecent.Fields.Item("article_title").Value)%>

<% Repeat__index=Repeat__index+1 Repeat__numRows=Repeat__numRows-1 rsRecent.MoveNext() Wend %>

<% rsArticle.Close() %> <% rsRecent.Close() %>