<% Set rsmeta=Server.CreateObject("Adodb.Recordset") qry = "select * from products where categoryid = 30" rsmeta.open qry, conn if not rsmeta.bof or not rsmeta.eof then do until rsmeta.eof meta = meta & rsmeta("productname") & ", " rsmeta.movenext loop end if rsmeta.close set rsmeta = nothing %>
<% Set rsarticle=Server.CreateObject("Adodb.Recordset") qry = " select * from articles where artid = "& Request.QueryString("artid") rsarticle.open(qry),conn if NOT rsarticle.eof then article_title = rsarticle("article_title") article = rsarticle("article") article_date = rsarticle("article_date") %> <% else %> <%end if%>
<%=article_title%>  
Date Added:  <%=article_date%>
<%=article%>
There is no article available at this time. Please check this page later.