<% '------------- veri tabanina baglaniyorum Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("hspntl/haberler_esp.mdb") %> <% id= Request("id") Set kset = Server.CreateObject ("ADODB.RecordSet") Sql = "Select * from tbl_economia where id = " &id& "" kset.Open Sql,Connect,1,3 %>   "> <%= kset("manset") %> <%= kset("altManset") %>     <%= kset("tarih") %>   <%=kset("kaynak") %>  <%= kset("yazar") %>     <%= kset("icerik") %>