<% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("haberadmin/neutrall.mdb") id= Request("id") Set Kayit = Server.CreateObject("ADODB.Recordset") Sql_Komutu = "Select * from videolar where id = " &id& "" Kayit.Open Sql_Komutu, Baglanti, 1, 3 Kayit("metin") = Replace(Kayit("metin"),vbCrLf,"
") %>
<%=Kayit("baslik")%> | <%=title%>
<%=Kayit("baslik")%>
<%=Kayit("metin")%>
ANA SAYFA
|
KARİYER
|
BASINDAN
|
FOTO GALERİ
|
VİDEOLAR
|
ZİYARETÇİ DEFTERİ
|
İLETİŞİM
<%=firma%>
<%=Kayit("baslik")%>