<%NewsId=Request("NewsId") if NewsId="" then Response.End() end if Set Rsz=Server.CreateObject("Adodb.RecordSet") Sqlz="Select * from News where NewsId="&NewsId Sqlz=Sqlz&" Order by NewsId Desc" Rsz.Open Sqlz,Conn,1,1%> <% Response.Write("") Response.Write("") Response.Write Rsz("NewsK") Response.Write("") Response.Write("") Response.Write("") %>
   

  News & Event
<% Response.Write("กค ") Response.Write Rsz("NewsTitle") Response.Write("
กค ") Response.Write year(Rsz("Newsdate")) Response.Write("-") Response.Write month(Rsz("Newsdate")) Response.Write("-") Response.Write day(Rsz("Newsdate")) Response.Write("
--------------------------------------------------------------------

") Response.Write Rsz("NewsContent") Response.Write("
") Rsz.close set Rsz=Nothing set Sqlz=Nothing %>