| HABERLER |
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabani.mdb")
Set Kayit = Server.CreateObject("ADODB.Recordset")
Sql_Komutu = "Select * from haber order by id desc"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Do while not Kayit.eof
%>
|
<%=left(Kayit("baslik"), 30)%>...
|
<%=Kayit("tarih")%>
|
[">Oku / Düzenle] |
[">Sil]
|
<%
Kayit.MoveNext
Loop
%>
<%
else
%>
<%
end if
end if
%>
|