<% name=Trim(Request.QueryString("name")) dir=trim(request.querystring("dir")) sername=Request.ServerVariables("SERVER_NAME") scrname=Request.ServerVariables("SCRIPT_NAME") linkurl="http://" & sername & Left(scrname,(len(scrname)-11)) & "panic.asp?name=" &name indexurl="http://" & sername & Left(scrname,(len(scrname)-11)) dim visitors set db=server.createobject("adodb.connection") db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/DB/counter/counter.mdb") set rs=server.createobject("adodb.recordset") rs.open "select * from panic where name='"&name&"'",db,1,3 visitors=rs("count") if Session("countok")<>8 then application.lock visitors=visitors+1 rs("count")=visitors rs("lastip")=userip application.unlock rs.update Session("countok")=8 end if if len(visitors) document.write('') <% next end if countlen=len(visitors) for i=1 to countlen pic=mid(visitors,i,1) linkurl="http://www.jamessteed.com/db/counter/1/"&pic %> document.write('') <% next rs.close db.close %>