<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Conn.asp" -->
<%
Action=replace(trim(request.QueryString("Action")),"'","")
ID=trim(request.QueryString("ID"))
if isnumeric(ID)=false then
   ID=0
end if
select case Action
case "News"
    conn.execute("Update News set Hits=Hits+1 where Id="&ID)
case "Product"
    conn.execute("Update ProdList set Hits=Hits+1 where Id="&ID)
end select
  
%>
