%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("
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 %> |