<% islem=request.QueryString("islem") select case islem case "Kaydet" ParentID=Temizle(Request.Form("ParentID")) Title=YariTemizle(Request.Form("Title")) oz1=YariTemizle(Request.Form("oz1")) oz2=YariTemizle(Request.Form("oz2")) oz3=YariTemizle(Request.Form("oz3")) oz4=YariTemizle(Request.Form("oz4")) oz5=YariTemizle(Request.Form("oz5")) oz6=YariTemizle(Request.Form("oz6")) oz7=YariTemizle(Request.Form("oz7")) Onay=YariTemizle(Request.Form("Onay")) Summary=YariTemizle(Request.Form("Summary")) Header=YariTemizle(Request.Form("Header")) Header3=YariTemizle(Request.Form("Header3")) Header2=YariTemizle(Request.Form("Header2")) 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")) Kucukft=Temizle(Request.Form("Kucukft")) Kucukft2=Temizle(Request.Form("Kucukft2")) Kucukft3=Temizle(Request.Form("Kucukft3")) Kucukft4=Temizle(Request.Form("Kucukft4")) Dokuman=Temizle(Request.Form("Dokuman")) AnaSayfa=Temizle(Request.Form("AnaSayfa")) Ref=Temizle(Request.Form("Ref")) SehirID=Temizle(Request.Form("SehirID")) GoogleTitle=Temizle(Request.Form("GoogleTitle")) GoogleKeyword=Temizle(Request.Form("GoogleKeyword")) GoogleDescription=Temizle(Request.Form("GoogleDescription")) PageName=Temizle(Request.Form("PageName")) FormB=Temizle(Request.Form("FormB")) FormC=Temizle(Request.Form("FormC")) Image=Temizle(Request.Form("Image")) ImageHover=Temizle(Request.Form("ImageHover")) D_Giris=Temizle(Request.Form("D_Giris")) if cid="" or isnumeric(cid)=false then response.Redirect("?") If ParentID="" then ParentID=0 If AnaSayfa="" then AnaSayfa=0 If Ref="" then Ref=0 If SehirID="" then SehirID=0 If FormB="" then FormB=0 If FormC="" then FormC=0 If Onay="" then Onay=0 If D_Giris="" then D_Giris=0 if ParentID="" or isnumeric(ParentID)=false then response.Redirect("?") conn.Execute("update Table_Ulkeler Set ParentID='"& ParentID &"',SehirID='"& SehirID &"',AnaSayfa='"& AnaSayfa &"',Ref='"& Ref &"',Onay='"& Onay &"',D_Giris='"& D_Giris &"',Title='"& Title &"',oz1='"& oz1 &"',oz2='"& oz2 &"',oz3='"& oz3 &"',oz4='"& oz4 &"',oz5='"& oz5 &"',oz6='"& oz6 &"',oz7='"& oz7 &"',Image='"& Image &"',ImageHover='"& ImageHover &"',Summary='"& Summary &"',Header='"& Header &"',Header3='"& Header3 &"',Header2='"& Header2 &"',HariciLink='"& HariciLink &"',HariciLinkType='"& HariciLinkType &"',MenuImage='"& MenuImage &"',MenuImageHover='"& MenuImageHover &"',Icon='"& Icon &"',UstFotograf='"& UstFotograf &"',Fotograf='"& Fotograf &"',Kucukft='"& Kucukft &"',Kucukft2='"& Kucukft2 &"',Kucukft3='"& Kucukft3 &"',Kucukft4='"& Kucukft4 &"',Dokuman='"& Dokuman &"',ModifyDate='"& Replace(Now(),".","/") &"',GoogleTitle='"& GoogleTitle &"',GoogleKeyword='"& GoogleKeyword &"',GoogleDescription='"& GoogleDescription &"',PageName='"& PageName &"',FormB='"& FormB &"',FormC='"& FormC &"' where ContentID="& cid &"") Response.Redirect("haberler.asp?LanguageID="& LanguageID &"&cid="&ParentID) %> <%end select%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_Ulkeler where ContentID="& cid) If not TabContent.EOF Then %>

Bağlı Olduğu Sayfa

<% Set TabTopKat = Conn.Execute("SELECT * FROM Table_Ulkeler where ParentID=0 and CultureID="& LanguageID) If not TabTopKat.EOF Then %> Ana Sayfa <% Do While not TabTopKat.EOF %> " <%If TabTopKat("ContentID")= TabContent("ParentID") then%> selected="selected"<%end if%>><%=TabTopKat("Title")%> <% Set TabTopKatAlt = Conn.Execute("SELECT * FROM Table_Ulkeler where ParentID="& TabTopKat("ContentID") &" and CultureID="& LanguageID) If not TabTopKatAlt.EOF Then %> <% Do While not TabTopKatAlt.EOF %> " <%If TabTopKatAlt("ContentID") = TabContent("ParentID") then%> selected="selected"<%end if%>>--<%=TabTopKatAlt("Title")%> <% Set TabTopKatAlt1 = Conn.Execute("SELECT * FROM Table_Ulkeler where ParentID="& TabTopKatAlt("ContentID") &" and CultureID="& LanguageID) If not TabTopKatAlt1.EOF Then %> <% Do While not TabTopKatAlt1.EOF %> " <%If TabTopKatAlt1("ContentID") = TabContent("ParentID") then%> selected="selected"<%end if%>>----<%=TabTopKatAlt1("Title")%> <% Set TabTopKatAlt2 = Conn.Execute("SELECT * FROM Table_Ulkeler where ParentID="& TabTopKatAlt1("ContentID") &" and CultureID="& LanguageID) If not TabTopKatAlt2.EOF Then %> <% Do While not TabTopKatAlt2.EOF %> " <%If TabTopKatAlt2("ContentID")=TabContent("ParentID") then%> selected="selected"<%end if%>>------<%=TabTopKatAlt2("Title")%> <% Set TabTopKatAlt3 = Conn.Execute("SELECT * FROM Table_Ulkeler where ParentID="& TabTopKatAlt2("ContentID") &" and CultureID="& LanguageID) If not TabTopKatAlt3.EOF Then %> <% Do While not TabTopKatAlt3.EOF %> " <%If TabTopKatAlt3("ContentID")=TabContent("ParentID") then%> selected="selected"<%end if%>>--------<%=TabTopKatAlt3("Title")%> <% TabTopKatAlt3.MoveNext Loop %> <% end if TabTopKatAlt3.Close %> <% TabTopKatAlt2.MoveNext Loop %> <% end if TabTopKatAlt2.Close %> <% TabTopKatAlt1.MoveNext Loop %> <% end if TabTopKatAlt1.Close %> <% TabTopKatAlt.MoveNext Loop %> <% end if TabTopKatAlt.Close %> <% TabTopKat.MoveNext Loop %> <% end if TabTopKat.Close %>

Başlık

" />

Diğer Başlık Kısmı İçin Kullanılacak

2. Başlık Kısmı

" />

Özet veya Marka Adı

<%=TabContent("Summary")%>

İçerik

<%=TabContent("Header")%>

İçerik 2

<%=TabContent("Header3")%>

İçerik 3

<%=TabContent("Header2")%>

Harici Link

" />   selected="selected"<%end if%>>_blank selected="selected"<%end if%>>_self

Menü İmaj

" /> Resim Yükle

Menü İmaj Over

" /> Resim Yükle

Üst Fotoğraf

"/>Resim Yükle

Fotoğraf

"/> Resim Yükle

Giriş Resmi (Bazı Bölümlerde Kucuk Resim İcin Kullanıla Bilir. Ornek/Haber/Veya Ana Sayfa Resimleri)

"/> Resim Yükle

Ic Urun Buyuk Yükle

"/> Resim Yükle

Ic Teknik Resim

"/> Resim Yükle

Ic Teknik Resim Büyük

"/> Resim Yükle

Döküman

"/> Döküman Yükle

Seo Ayarları

Title

"/>

Keyword

" />

Description

<%=TabContent("GoogleDescription")%>

Seçenekler

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

checked="checked"<%end if%>/> Proje Grubu İçin İşaretleyin

checked="checked"<%end if%>/> Proje Detayı İçin İşaretleyin

Sayfa İsmi

"/>

Video

<% b=request.QueryString("b") select case b case "Video" GalleryID=Temizle(Request.QueryString("GalleryID")) ParentID=Temizle(Request.QueryString("cid")) LanguageID=Temizle(Request.QueryString("LanguageID")) if GalleryID="" or isnumeric(GalleryID)=false then response.Redirect("?") conn.execute("insert into Table_Ulkeler_Fragman (GalleryID,ParentID,CreatedDate,ModifyDate,CultureID) values ('"& GalleryID &"','"& ParentID &"','"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"')") Response.Redirect("?cid="& cid&"&LanguageID="&LanguageID) case "Videocikart" SilID=Temizle(Request.Querystring("SilID")) if SilID="" or isnumeric(SilID)=false then response.Redirect("?") set Sil=conn.execute("delete * From Table_Ulkeler_Fragman where GalleryID="& SilID &" and ParentID=" & cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Ulkeler_Fragman Where ParentID="& cid &" and CultureID="&LanguageID) If not TabGaleriListesi.EOF Then %>

Seçili Videolar

<% Do While not TabGaleriListesi.EOF Set TabGaleriAd = Conn.Execute("SELECT * FROM Table_Fragman Where GalleryID="& TabGaleriListesi("GalleryID") &" and CultureID="&LanguageID &"") %>
• <%=TabGaleriAd("Title")%> - &LanguageID=<%=LanguageID%>">Çıkart
<% TabGaleriListesi.MoveNext Loop %>

<% end if TabGaleriListesi.Close %> Video Seçiniz <% Set TabGaleri = Conn.Execute("SELECT * FROM Table_Fragman where CultureID="& LanguageID) If not TabGaleri.EOF Then Do while not TabGaleri.EOF %> &LanguageID=<%=LanguageID%>"><%=TabGaleri("Title")%> <% TabGaleri.MoveNext Loop End if TabGaleri.Close %>

Galeriler

<% b=request.QueryString("b") select case b case "Galeri" GalleryID=Temizle(Request.QueryString("GalleryID")) ParentID=Temizle(Request.QueryString("cid")) LanguageID=Temizle(Request.QueryString("LanguageID")) if GalleryID="" or isnumeric(GalleryID)=false then response.Redirect("?") conn.execute("insert into Table_Ulkeler_Gallery (GalleryID,ParentID,CreatedDate,ModifyDate,CultureID) values ('"& GalleryID &"','"& ParentID &"','"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"')") Response.Redirect("?cid="& cid&"&LanguageID="&LanguageID) case "Galericikart" SilID=Temizle(Request.Querystring("SilID")) if SilID="" or isnumeric(SilID)=false then response.Redirect("?") set Sil=conn.execute("delete * From Table_Ulkeler_Gallery where GalleryID="& SilID &" and ParentID="& cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Ulkeler_Gallery Where ParentID="& cid &" and CultureID="&LanguageID) If not TabGaleriListesi.EOF Then %>

Seçili Galeriler

<% Do While not TabGaleriListesi.EOF Set TabGaleriAd = Conn.Execute("SELECT * FROM Table_GalleryGroup Where GalleryID="& TabGaleriListesi("GalleryID") &" and CultureID="&LanguageID &"") %>
• <%=TabGaleriAd("Title")%> - &LanguageID=<%=LanguageID%>">Çıkart
<% TabGaleriListesi.MoveNext Loop %>

<% end if TabGaleriListesi.Close %> Galeri Seçiniz <% Set TabGaleri = Conn.Execute("SELECT * FROM Table_GalleryGroup where CultureID="& LanguageID) If not TabGaleri.EOF Then Do while not TabGaleri.EOF %> &LanguageID=<%=LanguageID%>"><%=TabGaleri("Title")%> <% TabGaleri.MoveNext Loop End if TabGaleri.Close %>

Dökümanlar

<% b=request.QueryString("b") select case b case "Document" DocumentID=Temizle(Request.QueryString("DocumentID")) ParentID=Temizle(Request.QueryString("cid")) LanguageID=Temizle(Request.QueryString("LanguageID")) if DocumentID="" or isnumeric(DocumentID)=false then response.Redirect("?") conn.execute("insert into Table_Ulkeler_Documents (DocumentID,ParentID,CreatedDate,ModifyDate,CultureID) values ('"& DocumentID &"','"& ParentID &"','"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"')") Response.Redirect("?cid="& cid&"&LanguageID="&LanguageID) case "Documentcikart" SilID=Temizle(Request.Querystring("SilID")) if SilID="" or isnumeric(SilID)=false then response.Redirect("?") set Sil=conn.execute("delete * From Table_Ulkeler_Documents where DocumentID="& SilID &"") Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabDocumentListesi=Conn.Execute("SELECT * FROM Table_Ulkeler_Documents Where ParentID="& cid &" and CultureID="&LanguageID) If not TabDocumentListesi.EOF Then %>

Seçili Dökümanlar

<% Do While not TabDocumentListesi.EOF Set TabDocumentAd = Conn.Execute("SELECT * FROM Table_UlkelerDocumentsGroup Where DocumentID="& TabDocumentListesi("DocumentID") &" and CultureID="&LanguageID &"") %>
• <%=TabDocumentAd("Title")%> - &LanguageID=<%=LanguageID%>">Çıkart
<% TabDocumentListesi.MoveNext Loop %>

<% end if TabDocumentListesi.Close %> Document Seçiniz <% Set TabDocument = Conn.Execute("SELECT * FROM Table_UlkelerDocumentsGroup where CultureID="& LanguageID) If not TabDocument.EOF Then Do while not TabDocument.EOF %> &LanguageID=<%=LanguageID%>"><%=TabDocument("Title")%> <% TabDocument.MoveNext Loop End if TabDocument.Close %>

<%end if TabContent.Close %>