<% if Request.form("sil")<>"" then sorgum="delete * from haber where hkodu="&hkodu Rs.Open Sorgum, Baglantim, 1, 3 hata "Kayit Basariyla Silindi",16 Response.Redirect("giris.asp") end if %> <% if Request.QueryString("ekle")="ok" then sorgum="select * from haber" Ra.Open Sorgum, Baglantim, 1, 3 ra.addnew ra("baslik")="Yeni Kayit" ra("aciklama")="Açiklama Giriniz." ra("aciklama")="Açiklama Giriniz." ra("goster")="False" ra("ekleme")=date() ra.update ra.close end if %> <% if Request.form("guncelle")<>"" then sorgum="select * from haber where hkodu="&hkodu Ra.Open Sorgum, Baglantim, 1, 3 ra("baslik")=Request.Form("baslik") ra("kaynak")=Request.Form("kaynak") ra("aciklama")=Request.Form("aciklama") if Request.Form("resim")<>"" then ra("resim")=Request.Form("resim") end if if Request.Form("goster")<>"" then ra("goster")="true" else ra("goster")="false" end if ra("update")=date() ra.update ra.close end if %>

Yeni Kayit Ekle

<% sorgum="Select * from haber order by hkodu desc" Rf.Open Sorgum, Baglantim, 1, 3 if rf.eof or rf.bof then hata "Kayitli Uye Bulunamadi",16 else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> <% rf.pagesize = 8 rf.absolutepage = shf cellcolor="#FFFFFF" sayfa = rf.pagecount for i=1 to 10 if rf.eof then exit for %> "><%= rf("baslik") %>
Tarih : <%= rf("ekleme") %>

<% rf.movenext next%>

<%for y=1 to sayfa if cint(shf)=cint(y) then %> [<%= y %>] <% else %> <%= y %> <% end if next %>

<% end if %> <%Rf.Close %>

<% if hkodu<>"" then sorgum="Select * from haber where hkodu="&hkodu Rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("Kayit Bulunamadi") else %>
Uye Başlık :
" size="70">
Uye Göster :
checked <% end if %>> Göster
Kısa Açıklama :
Tarihler :
Ekleme : <%= rs("ekleme") %>      Güncelleme : <%= rs("update") %>
Kategori:
" size="60">
NOT : Boş geçebilir veya site adresi girebilirsiniz.
Uye Resim Yolu:
" size="60"> ','','resizable=yes,status=yes,width=800,height=550')" value="Bilgisayardan Yükle" />
 
&adi=<%= rs("hkodu") %>','','resizable=yes,status=yes,width=600,height=500')" value="Detay Güncelle" />
Uye Resmi :
<% if rs("resim")<>"" then %> " Width="200" height="150" border="0"> <% end if %>

Uye Detay

<%= rs("detay") %>

<% end if %> <% end if %>