<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% openconn set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblconfig",conn %> <%=rs("sitename")%>
TIN TỨC DÒNG HỌ Về trang trước
<% openconn 'hbxb = formatSQLInput(Request.QueryString("hbxb")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs= server.CreateObject("adodb.recordset") rs.open "SELECT * FROM tblcat where idcat='"&sessionpage&"'", conn if not rs.eof then %> <% end if rs.close %>
<%=rs("title")%>
<%if rs("image") <> "" then%>" width="200" style="border:1px solid #CCCCCC; padding:2px; margin-left:0px; margin-right:10px" align="left"><%end if%>
<%=rs("quotation")%>
<%=rs("content")%>
 Bản in  Lên đầu trang
<% openconn sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs1= server.CreateObject("adodb.recordset") rs1.open "select top 10 * from tblcat where idcat <> '"&sessionpage&"' order by idcat desc", conn if not rs1.eof then %> <% do while not rs1.eof %> <% rs1.movenext loop end if %>