%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("../data/cccdata.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath%>