<% islem=request.QueryString("islem") select case islem case "Kaydet" Title=YariTemizle(Request.Form("Title")) Header=YariTemizle(Request.Form("Header")) LanguageID=Temizle(Request.QueryString("LanguageID")) Link=YariTemizle(Request.Form("Link")) SmallPhoto=YariTemizle(Request.Form("SmallPhoto")) AnaSayfa=YariTemizle(Request.Form("AnaSayfa")) AnaText=YariTemizle(Request.Form("AnaText")) AP=YariTemizle(Request.Form("AP")) PekYakin=YariTemizle(Request.Form("PekYakin")) If AP="" then AP=0 If AnaSayfa="" then AnaSayfa=0 If PekYakin="" then PekYakin=0 conn.Execute("update Table_Fragman Set AP='"& AP &"',PekYakin='"& PekYakin &"',Title='"& Title &"',AnaSayfa='"& AnaSayfa &"',AnaText='"& AnaText &"',Header='"& Header &"',SmallPhoto='"& SmallPhoto &"',Link='"& Link &"',ModifyDate='"& Replace(Now(),".","/") &"' where GalleryID="& cid &"") Response.Redirect("fragmanedit.asp?cid="& cid &"&LanguageID="&LanguageID) %> <%case ""%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_Fragman where GalleryID="& cid) If not TabContent.EOF Then %>

Başlık

" />

Link

" />

Açıklama

<%=TabContent("Header")%>

Resim

" />
" name="SmallPhoto" id="SmallPhoto"/> Resim Yükle

<%end if TabContent.Close end select %>