<% set conn = Server.CreateObject("ADODB.Connection") conn.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inquiry_db.mdb")) sqls_select = "select * from hit_counter" set recset_select = conn.execute(sqls_select) sqls_update = "update hit_counter set hit_counter=" & recset_select("hit_counter") + 1 set recset_update = conn.execute(sqls_update) %> ::: EL ALFY Company Web site - Home Page