<% ' version 4.May 7,2545 %>
<!--#include file="header.asp"-->
<!--#include file="connectdatabase.asp"-->
<%
  if session("mu") <> "guest"  and len(session("mu")) > 0 then
  sql = "select * from signin where intime= #" & session("intime") & "# and mu= '" & session("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  sql = "update signin set usearticle ="& rs("usearticle") &" where intime=#" & session("intime") & "# and mu = '"& session("mu")&"'" 
  connect.execute(sql)  
  end if
%>
<!--#include file="connectarticle.asp"-->
<ul><br><font size=0><font color=red><b>เนื้อหาบทความ online</b></font><hr color=#000080>
<% 
  sql = "select * from article where aid=" & request.querystring("aid")
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  response.write("<b>เรียบเรียงโดย </b>:: <a href=showmem.asp?mu="& rs("mu") &">"&rs("mu")&"</a><br>")
  response.write("<b>วันที่ส่งเข้ามา </b>:: <font color=blue>"& rs("adate") &"</font><br>")    
  response.write("<b>อ้างอิงข้อมูลจากเว็บ </b>:: <font color=blue>"& rs("aurl") &"</font><br>")
  response.write("<b>ชื่อบทความ </b>:: <font color=blue>"& rs("atitle") &"</font> ("& len(rs("adetail")) &" ตัวอักษร)<br>")
  response.write("<b>รายละเอียด </b>:: <br><font color=blue><pre><ul>"& rs("adetail") &"</pre></font><br>")    
  set rs = nothing
  set connect = nothing
%>
</ul>
<!--#include file="footer.asp"-->