<% islem=request.QueryString("islem") select case islem case "Kaydet" ParentID=Temizle(Request.Form("ParentID")) Title=YariTemizle(Request.Form("Title")) Summary=YariTemizle(Request.Form("Summary")) Header=YariTemizle(Request.Form("Header")) HariciLink=YariTemizle(Request.Form("HariciLink")) HariciLinkType=Temizle(Request.Form("HariciLinkType")) MenuImage=Temizle(Request.Form("MenuImage")) MenuImageHover=Temizle(Request.Form("MenuImageHover")) Icon=Temizle(Request.Form("Icon")) UstFotograf=Temizle(Request.Form("UstFotograf")) Fotograf=Temizle(Request.Form("Fotograf")) Dokuman=Temizle(Request.Form("Dokuman")) Onay=Temizle(Request.Form("Onay")) AnaSayfa=Temizle(Request.Form("AnaSayfa")) If Onay="" then Onay=0 If AnaSayfa="" then AnaSayfa=0 if cid="" or isnumeric(cid)=false then response.Redirect("?") If ParentID="" then ParentID=0 if ParentID="" or isnumeric(ParentID)=false then response.Redirect("?") conn.Execute("update Table_News Set Onay='"& Onay &"',AnaSayfa='"& AnaSayfa &"',ParentID='"& ParentID &"',Title='"& Title &"',Summary='"& Summary &"',Header='"& Header &"',HariciLink='"& HariciLink &"',HariciLinkType='"& HariciLinkType &"',MenuImage='"& MenuImage &"',MenuImageHover='"& MenuImageHover &"',Icon='"& Icon &"',UstFotograf='"& UstFotograf &"',Fotograf='"& Fotograf &"',Dokuman='"& Dokuman &"',ModifyDate='"& Replace(Now(),".","/") &"' where ContentID="& cid &"") %> <%end select%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_News where ContentID="& cid) If not TabContent.EOF Then %>

Başlık

" />

Özet

<%=TabContent("Summary")%>

İçerik

<%=TabContent("Header")%>

Fotoğraf

"/> Resim Yükle

Seçenekler

checked="checked"<%end if%>/>Haberi Yayınla

checked="checked"<%end if%>/>Haberi Ana Sayfada Yayınla

<%end if TabContent.Close %>