% dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("asp/gdphonein.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("Adodb.connection") conn.open connstr %>