<% Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/System_DB.mdb") %> <% id = request.querystring("id") set yaz = Server.CreateObject("ADODB.RecordSet") SQL_yaz ="SELECT * FROM Kampanya where id =" & id yaz.open SQL_yaz,bag,1,3 %>
 
<%=yaz("Baslik")%>
 
<%=yaz("HaberDetay")%>