about us | services | careers | clientele | recommendation | events | contact us | site-map | 日本語版 Best viewed with 800 / 600 resolution <% set conn=Server.createObject("Adodb.Connection") set rs=Server.createObject("ADODB.Recordset") 'connstr="Provider=Microsoft.Jet.oledb.4.0 ; Data Source=" 'connstr=connstr & Server.MapPath(".") &"\count.mdb" connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ=" connstr=connstr & Server.MapPath(".") & "\db\count2.mdb" conn.open connstr updatesql="update countsite set cnt=cnt+1 where id=1" conn.execute updatesql selectsql="Select * from countsite where id=1" rs=conn.execute(selectsql) counter=rs("cnt") set conn=nothing Response.write "This Website has been visited " & counter & " times" %> © Copyright Hope Consulting Inc., - 2000-2001 All Brand names are the registered trademarks of their respective organisations