<% if not request.querystring("islem")="giris" then Session("durum")="" %> Kayan Haber Sayfasına Git

Kullanıcı Adı :
Parola :

<% end if %> <% if request.querystring("islem")="giris" then kadi = "bayramoglu2013" parola = "bayramoglu2013" if (parola = request.Form("sifre") and kadi = request.Form("kadi")) or (Session("durum")="girdi") then Session("durum")="girdi" %>

HABER EKLE |  HABERLERI OKU |  ÇIKIŞ

<% 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 %> <% Kayit.MoveNext Loop %> HABERLER <%=left(Kayit("baslik"), 30)%>... <%=Kayit("tarih")%> [">Oku / Düzenle] [">Sil] <% else %> HATALI GİRİŞ! Geri <% end if end if %>