<! 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"-->
จำนวน : 33 บรรทัด