%dim m,ns_id,nt_title,ns_title,ns_content,ns_skim,ns_ntid
ns_id=trim(request("ns_id"))
if ns_id = "" then ns_id = conn.execute("select top 1 ns_id from Eas_News_List where ns_ntid = 10")(0)
if not isnumeric(ns_id) then
response.Write("")
response.End()
end if
conn.execute("update Eas_News_List set ns_hit=ns_hit+1 where ns_id="&ns_id)
sql = "select * from Eas_News_List where ns_id ="&ns_id&""
set rs =ado_query(sql,conn)
if rs.recordcount = 0 then header("index.asp")
ns_title = rs("ns_title")
ns_content = rs("ns_content")
rs.close
set rs=nothing
%>