<% Set AnaBaglanti = Server.CreateObject("ADODB.Connection") AnaBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/veri_tabani.mdb") Set AnaKayit = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT ana_baslik,ana_metin FROM degiskenler" AnaKayit.Open Sorgu,AnaBaglanti,1,3 AnaKayit("ana_metin") = Replace(AnaKayit("ana_metin"),vbCrLf,"
") %>
| <%=AnaKayit("ana_baslik")%> |
| <%=AnaKayit("ana_metin")%> |