<% Set Bag = Server.CreateObject("ADODB.Connection") Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/canliyayin.mdb") Set Rs=Server.CreateObject("Adodb.Recordset") %>