<% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetim/db/neutral.mdb") id= Request("id") Set Kayit = Server.CreateObject("ADODB.Recordset") Sql_Komutu = "Select * from haber where id = " &id& "" Kayit.Open Sql_Komutu, Baglanti, 1, 3 Kayit("metin") = Replace(Kayit("metin"),vbCrLf,"
") %>
<%=Kayit("baslik")%> - <%=title%>
ANA SAYFA
HAKKIMIZDA
HABERLER
HİZMETLERİMİZ
SERVİS
İLETİŞİM
» <%=Kayit("baslik")%>
<%=Kayit("baslik")%>
<%=Kayit("tarih")%>
<%=Kayit("metin")%>
