<% Set cnLink = Server.CreateObject("ADODB.Connection") Set rsLink = Server.CreateObject("ADODB.Recordset") cnLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/linkler.mdb") cnLink.Open rsLink.Open "SELECT * FROM kategoriler", cnLink, adOpenForwardOnly, adLockReadOnly %> <% Do While Not rsLink.EOF %> <% rsLink.MoveNext Loop %> <% rsLink.Close Set rsLink = Nothing cnLink.Close Set cnLink = Nothing %>

"><%= rsLink("Category")%>