![]() |
||||
<% 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," ") %>
|
<%if menuyeri=1 then%>
||||
| <%=sayfadibi%> | ||||