<% Set db=Server.CreateObject("ADODB.Connection") db.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath("yonetim/db/neutral.mdb") %> <% Set rs = Server.CreateObject ("ADODB.RecordSet") sql = " Select * from kategoriler" rs.open sql,db,1,3 do while not rs.eof %> <% rs.movenext loop rs.close set rs=nothing %> <% Set rs = Server.CreateObject ("ADODB.RecordSet") sql = " Select * from album where id="&request.querystring("id")&" " rs.open sql,db,1,3 %>