<! version 2.24July46 by burin rujjanapan from yonok.ac.th>
<%
dim connect, rs, sql, tots, i, j, k, l, nextl, max
set connect = server.createobject("ADODB.Connection")
%><!--#include file="connectnews.asp"--><!--#include file="header.asp"-->
<center><font color=red size=4>
<%
if len(request.querystring("niddtl")) > 0 then
  sql = "select * from news where nid=" & request.querystring("niddtl")
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots > 0 then
    response.write("<table width=98% align=center border=0 cellpadding=1 cellspacing=1 bgcolor=black>")
    response.write("<tr><td width=60 colspan=2 align=right><font color=white>หัวข้อ :</td><td bgcolor=#ffffdd>")		
    response.write("<font color=blue size=4>"&rs("nshort")&"</font></td></tr><tr><td width=5></td><td colspan=2 bgcolor=white>")
    response.write("<table width=100% height=100% border=0 cellpadding=1 cellspacing=1 bgcolor=#808080><td bgcolor=white><font size=4><ul><br><dd>")
	response.write(rs("ndetail")&"<div align=right><font color=red>:: "&rs("showdate")&" ::</div></ul></td></table>")
	response.write("</td></tr><tr bgcolor=#808080><td colspan=3 align=right><font color=white>")
	response.write("วันที่กรอกข้อมูล : "& rs("ndate"))  
    response.write("</td></tr></table>")	
  else
    response.write("<br>ขอโทษ และโปรดติดต่อเจ้าหน้าที่ ที่เกี่ยวข้อง<br>เพราะไม่พบข้อมูลที่ท่านต้องการ")
    response.write("<br>เหตุการณ์แบบนี้ไม่น่าเกิดขึ้น .. ข้อมูลที่ท่านต้องการอาจหมดอายุ")	
  end if
else
  response.write("<br>ขอโทษ ท่านยังไม่ได้ระบุรหัสข้อมูลที่ต้องการ")
end if
connect.close
set rs = nothing
set connect = nothing
%></font>
<!--#include file="footer.asp"-->