% Dim Conn set conn=Server.CreateObject("ADODB.CONNECTION") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.mapPath("../db_kjtj.mdb") %>