Hit Artışı hakkında yardım

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

pek anlamam ama mantıken söylüyorum belki yardımı olur burda hit +1 demişsin
burdanda gelen hit i 1 fazla gösterir

sorunun burdan kaynaklanıp kaynaklanmadığını anlaman için burdaki +1 i +5 +10 yaparsın 1 hit 6 hit 11 hit olarak gözüküosa sorun burdandır kanımca.

Gelen hiti 1 fazla gösterir mi hiç.
Veritabanındaki hiti 1 arttırır o satırdaki kod.

hit + 1 1 yerine hangi sayıyı yazarsan yaz o sayının 2 katı artırıyor

Sayfanız başka bir nedenden dolayı refresh olabilir en mantıklı cevap bu olsa gerek sayfanızda kullandığınız kodları bir inceleyin bence.

Kolay gelsin

hepsine baktım kaçırdığım bişeymi vardiye ama yom

bu kodlar sub dısındada kullanılmış ise ondan kaynaklanıyordur.
bi bakabilirmisin öyle bir durum var mı ?

Kodlama doğru fakat işleyiş yanlış ise seo özelliğine bakacaksınız. Sitede seo aktif ise sayfayı 1 kere açıyor, 1 kerede link yenilemesi yapıyor o yüzden 2şer artıyor.
Sağlam çalışan örnek bir 404.asp sayfası yazıyım sana.

on error resume next
degisken = Request.QueryString
gelenlink_bol = split(degisken, "/")
uzanti_bol = split(gelenlink_bol(4), "/")

If gelenlink_bol(3)="Haberoku" Then
Server.Execute("haberoku.asp")
ElesIf gelenlink_bol(3)="Kategori" Then
Server.Execute("kategori.asp")
Else
Response.Write ("Aradığınız sayfa bulunamadı")
End if

Kolay gelsin.