真三国无双7全战功:网页计数器代码的问题

我不想计数器防刷代码。我希望刷新一次网页就改变一次计数.我改了很久都不行.麻烦高手帮忙看看!代码如下:
<%
picture=1 '计数器 SKIN 代号(可选1--6)
picnum=6 '计数器的位数（可选1--10）
Dim MM_counter_STRING
'POWERED BY SLIGHTBOY
MM_counter_STRING="DBQ="+server.mappath("../data/db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_counter_STRING
'set conn=Server.CreateObject("ADODB.connection")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/datebase/db.mdb")

Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from data where id=1"
rs.open sql,conn,3,3

'防刷代码开始
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if not ip=session("OldIp") then

session("OldIp")=ip

rs("counter")=rs("counter")+1
rs.update
counternum=rs("counter")
rs.close
else
counternum=rs("counter")
rs.close
end if

counternum=cstr(counternum)
for i=1 to (picnum-len(counternum))
counternum="0"&counternum
next
counter=""
for i=1 to len(counternum)
pic="<img src=count1/img/"&picture&"/"&mid(counternum,i,1)&".gif>"
dispic="document.write(""" & pic & """);"
response.write dispic
next
%>