<% dim gbconn set gbconn=Createobject("ADODB.Connection") gbconn.ConnectionString="DBQ="& server.mappath("/bbs/showad/showad.mdb")& ";DRIVER={Microsoft Access Driver (*.mdb)};" gbconn.open %>