<!--#include file="../conn/conn.asp"-->
<%SQLin
Action=trim(Request("Action"))
Select Case Action
	Case "Article"
		Call Articlehits()
End Select
CloseConn
Sub Articlehits()
	newsid=Replace(request.querystring("id"),"'","")
	if newsid<>"" and Isnumeric(newsid) then
		conn.execute("update JOB_news set N_hits=N_hits+1 where N_id="&newsid&"")
		set rshits=conn.execute("select N_hits from JOB_news where N_id="&newsid&"")
		if rshits.eof then
			response.write "0"
		else
			response.write ""&rshits("N_hits")&""
		end if
		rshits.close
		set rshits=nothing
	end if
End Sub
%>