Arkadaşlar sitemde program hiti 2 şer artıyor

<% sub indir
id=Request.QueryString("id")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from programlar where id="&id
yeniasp.Open sor,Sur,1,3
yeniasp("hit")=yeniasp("hit")+ 1
yeniasp.update
end sub
%>

başka hiç bir sayfada geçmiyor bu kod ama nedenini çözemedim
yardımcı olursanız sevinirim