<!--#include file="Inc/Conn.asp"-->
<% 
dim id 
id=int(request("id")) 
set rs=server.createobject("adodb.recordset")
sql="select * from News where ID="&int(id)
rs.open sql,Conn,1,3
if not(rs.eof and rs.bof) then
	hits=rs("hits")+1
	rs("hits")=rs("hits")+1
	rs.update
end if
rs.close
set rs=nothing
response.write("document.write('"&hits&"')") 
%>