<% picnum=6 set rs=server.CreateObject("adodb.recordset") conn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") sql="select * from data" rs.open sql,conn,2,3 ip=Request.ServerVariables("REMOTE_ADDR") if not ip=session("OldIp") then session("OldIp")=ip rs("counter")=rs("counter")+1 rs.update str=rs("counter") rs.close else str=rs("counter") rs.close end if str=cstr(str) for i=1 to len(str) pic=pic&"" next response.Write(pic) %>