sana kod vereyim mantığını anla ama bunu uygulaman için access veri tanını yapman lazım benden bu kadar

blnSayac_Tekil_Arttir = False
blnSayac_Cogul_Arttir = False
Set sayacRS = Server.CreateObject("ADODB.Recordset")
sayacRS.Open "SELECT * FROM tblSayacIp WHERE ip = '"&intKullanici_Ip&"'", DBBaglanti, 1, 3
If sayacRS.Eof Then
sayacRS.AddNew
sayacRS("ip") = intKullanici_Ip
sayacRS("toplam_ziyaret") = 1
sayacRS("ziyaret_ettigi_son_gun") = Now()
sayacRS("tarayici_dili") = strTarayici_Dili
sayacRS("isletim_sistemi") = OSType
sayacRS("tarayici") = BrowserType
sayacRS("referans") = strReferans_Site_Tam_Adres
sayacRS("bulundugu_sayfa") = URL
sayacRS.Update
blnSayac_Tekil_Arttir = True
blnSayac_Cogul_Arttir = True
Else
If Left(sayacRS("ziyaret_ettigi_son_gun"), 10) = Left(Now(), 10) Then
blnSayac_Tekil_Arttir = False
blnSayac_Cogul_Arttir = True
Else
blnSayac_Tekil_Arttir = True
blnSayac_Cogul_Arttir = True
End If
sayacRS("toplam_ziyaret") = sayacRS("toplam_ziyaret") + 1
TopZiySay=sayacRS("toplam_ziyaret") + 1
sayacRS("ziyaret_ettigi_son_gun") = Now()
sayacRS("tarayici_dili") = strTarayici_Dili
sayacRS("isletim_sistemi") = OSType
sayacRS("tarayici") = BrowserType
sayacRS("referans") = strReferans_Site_Tam_Adres
sayacRS("bulundugu_sayfa") = URL
sayacRS.Update
End If
sayacRS.Close
Set sayacRS = Nothing

Set sayacRS = Server.CreateObject("ADODB.Recordset")
sayacRS.Open "SELECT tekil, cogul, gun FROM tblSayacGunluk WHERE gun = Date()", DBBaglanti, 1, 3
If sayacRS.Eof Then
sayacRS.AddNew
sayacRS("tekil") = 1
sayacRS("cogul") = 1
sayacRS("gun")= Date()
sayacRS.Update
Else
If blnSayac_Tekil_Arttir = True Then
sayacRS("tekil") = sayacRS("tekil") + 1
End If
If blnSayac_Cogul_Arttir = True Then
sayacRS("cogul") = sayacRS("cogul") + 1
End If
sayacRS.Update
End If
sayacRS.Close
Set sayacRS = Nothing