belki bazı arkadaşların işine yarar tamamen kodlar bana aitdir.

bi tane adsense diye tablo açılır 3 tane id,gosterim,ip diye sutun eklenir.

<%
	ip = request.ServerVariables("REMOTE_ADDR")

	set kss = server.createobject("ADODB.Recordset")
	sql ="Select * from adsense Where ip='"& ip &"'"
	kss.open sql,baglanti,1,3

	If kss.EOF And kss.BOF Then
		set ks = baglanti.execute("insert into adsense (ip,gosterim) values ('"&ip&"',1)")
%>
                       REKLAM KODUNUZ
<%
<%
	else
		if cint(kss("gosterim")) < 10 then 
			set ms = baglanti.execute("update adsense set gosterim='" & kss("gosterim")+1 & "' Where ip='"&ip&"'")
%>
                      REKLAM KODUNUZ
<%
		end if
	end if
%>

if cint(kss("gosterim")) < 10 then

bu satır daki 10 rakamını kafanıza göre verirsiniz aynı ip ye 9 kere reklam gösterir tabloyu boşaltmadığınız sürece daha da reklam cıkmaz o ip ye

bi sifirla.asp diye de sayfa acarsınız panel den arada kafanıza göre tıklarsınız

kodları da

baglanti.execute("TRUNCATE TABLE adsense")

işinize yarar umarım.