<% Set con = Server.CreateObject("ADODB.Connection") con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetici/data/eld.mdb")) sql1 = "SELECT * FROM sayfa where kategori='5' " sql1 = sql1 & " order by id desc;" set rsf = server.createobject("ADODB.Recordset") rsf.open sql1, con, 1, 3 While Not rsf.EOF %> " target=_parent><%=rsf("baslik")%>


<% If Not rsf.EOF Then rsf.MoveNext End If Wend rsf.Close Set rsf = Nothing %>