<% 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")) oz8=YariTemizle(Request.Form("oz8")) oz9=YariTemizle(Request.Form("oz9")) oz10=YariTemizle(Request.Form("oz10")) oz11=YariTemizle(Request.Form("oz11")) oz12=YariTemizle(Request.Form("oz12")) oz13=YariTemizle(Request.Form("oz13")) oz14=YariTemizle(Request.Form("oz14")) oz15=YariTemizle(Request.Form("oz15")) oz16=YariTemizle(Request.Form("oz16")) oz17=YariTemizle(Request.Form("oz17")) Onay=YariTemizle(Request.Form("Onay")) Summary=YariTemizle(Request.Form("Summary")) Summary2=YariTemizle(Request.Form("Summary2")) Summary3=YariTemizle(Request.Form("Summary3")) Header=YariTemizle(Request.Form("Header")) 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")) renk1=Temizle(Request.Form("renk1")) renk2=Temizle(Request.Form("renk2")) renk3=Temizle(Request.Form("renk3")) renk4=Temizle(Request.Form("renk4")) renk5=Temizle(Request.Form("renk5")) renk6=Temizle(Request.Form("renk6")) renk7=Temizle(Request.Form("renk7")) renk8=Temizle(Request.Form("renk8")) renk9=Temizle(Request.Form("renk9")) renk10=Temizle(Request.Form("renk10")) renk11=Temizle(Request.Form("renk11")) renk12=Temizle(Request.Form("renk12")) renk13=Temizle(Request.Form("renk13")) renk14=Temizle(Request.Form("renk14")) renk15=Temizle(Request.Form("renk15")) renk16=Temizle(Request.Form("renk16")) renk17=Temizle(Request.Form("renk17")) renk18=Temizle(Request.Form("renk18")) renk19=Temizle(Request.Form("renk19")) renk20=Temizle(Request.Form("renk20")) renk21=Temizle(Request.Form("renk21")) renk22=Temizle(Request.Form("renk22")) renk23=Temizle(Request.Form("renk23")) renk24=Temizle(Request.Form("renk24")) renk25=Temizle(Request.Form("renk25")) renk26=Temizle(Request.Form("renk26")) renk27=Temizle(Request.Form("renk27")) renk28=Temizle(Request.Form("renk28")) renk29=Temizle(Request.Form("renk29")) renk30=Temizle(Request.Form("renk30")) renk31=Temizle(Request.Form("renk31")) renk32=Temizle(Request.Form("renk32")) renk33=Temizle(Request.Form("renk33")) renk34=Temizle(Request.Form("renk34")) 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 renk1="" then renk1=0 If renk2="" then renk2=0 If renk3="" then renk3=0 If renk4="" then renk4=0 If renk5="" then renk5=0 If renk6="" then renk6=0 If renk7="" then renk7=0 If renk8="" then renk8=0 If renk9="" then renk9=0 If renk10="" then renk10=0 If renk11="" then renk11=0 If renk12="" then renk12=0 If renk13="" then renk13=0 If renk14="" then renk14=0 If renk15="" then renk15=0 If renk16="" then renk16=0 If renk17="" then renk17=0 If renk18="" then renk18=0 If renk19="" then renk19=0 If renk20="" then renk20=0 If renk21="" then renk21=0 If renk22="" then renk22=0 If renk23="" then renk23=0 If renk24="" then renk24=0 If renk25="" then renk25=0 If renk26="" then renk26=0 If renk27="" then renk27=0 If renk28="" then renk28=0 If renk29="" then renk29=0 If renk30="" then renk30=0 If renk31="" then renk31=0 If renk32="" then renk32=0 If renk33="" then renk33=0 If renk34="" then renk34=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_Content Set ParentID='"& ParentID &"',SehirID='"& SehirID &"',AnaSayfa='"& AnaSayfa &"',renk1='"& renk1 &"',renk2='"& renk2 &"',renk3='"& renk3 &"',renk4='"& renk4 &"',renk5='"& renk5 &"',renk6='"& renk6 &"',renk7='"& renk7 &"',renk8='"& renk8 &"',renk9='"& renk9 &"',renk10='"& renk10 &"',renk11='"& renk11 &"',renk12='"& renk12 &"',renk13='"& renk13 &"',renk14='"& renk14 &"',renk15='"& renk15 &"',renk16='"& renk16 &"',renk17='"& renk17 &"',renk18='"& renk18 &"',renk19='"& renk19 &"',renk20='"& renk20 &"',renk21='"& renk21 &"',renk22='"& renk22 &"',renk23='"& renk23 &"',renk24='"& renk24 &"',renk25='"& renk25 &"',renk26='"& renk26 &"',renk27='"& renk27 &"',renk28='"& renk28 &"',renk29='"& renk29 &"',renk30='"& renk30 &"',renk31='"& renk31 &"',renk32='"& renk32 &"',renk33='"& renk33 &"',renk34='"& renk34 &"',Ref='"& Ref &"',Onay='"& Onay &"',D_Giris='"& D_Giris &"',Title='"& Title &"',oz1='"& oz1 &"',oz2='"& oz2 &"',oz3='"& oz3 &"',oz4='"& oz4 &"',oz5='"& oz5 &"',oz6='"& oz6 &"',oz7='"& oz7 &"',oz8='"& oz8 &"',oz9='"& oz9 &"',oz10='"& oz10 &"',oz11='"& oz11 &"',oz12='"& oz12 &"',oz13='"& oz13 &"',oz14='"& oz14 &"',oz15='"& oz15 &"',oz16='"& oz16 &"',oz17='"& oz17 &"',Image='"& Image &"',ImageHover='"& ImageHover &"',Summary='"& Summary &"',Summary2='"& Summary2 &"',Summary3='"& Summary3 &"',Header='"& Header &"',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("sayfalar.asp?LanguageID="& LanguageID &"&cid="&ParentID) %> <%end select%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_Content where ContentID="& cid) If not TabContent.EOF Then %>

Bağlı Olduğu Sayfa

<% Set TabTopKat = Conn.Execute("SELECT * FROM Table_Content 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_Content where ParentID="& TabTopKat("ContentID") &" and CultureID="& LanguageID &" order by raw desc") 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_Content where ParentID="& TabTopKatAlt("ContentID") &" and CultureID="& LanguageID &" order by raw desc") 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_Content where ParentID="& TabTopKatAlt1("ContentID") &" and CultureID="& LanguageID &" order by raw desc") 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_Content where ParentID="& TabTopKatAlt2("ContentID") &" and CultureID="& LanguageID &" order by raw desc") 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

" />

Haber Tarih

" />

Özet (Haber Özet Kısmı)

<%=TabContent("Summary")%>

Adres Bilgi Kısmı İçin Tıklayınız

Adres

" />

Telefon

" />

Fax

" />

Mail

" />

İçerik

<%=TabContent("Header")%>

Harici Link

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

Üst Fotoğraf (2000x300px)

"/> Resim Yükle

Fotoğraf

"/> Resim Yükle

Giriş Resmi (Haber veya Ana Sayfa Resimleri)

"/> Resim Yükle

Ürün Resmi İc Detay

"/> Resim Yükle

Döküman İsmi

" />

Döküman

"/> Döküman Yükle

Seo Ayarları

Title

"/>

Keyword

" />

Description

<%=TabContent("oz2")%>

Seçenekler

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

checked="checked"<%end if%>/> Ürün Ana Kutucuk İçin İşaretleyiniz

checked="checked"<%end if%>/> Ürün Kutucukları İçin İşaretleyiniz

checked="checked"<%end if%>/> Ürün Detayı İçin İşaretleyiniz

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_Content_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_Content_Fragman where GalleryID="& SilID &" and ParentID=" & cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Content_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_Content_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_Content_Gallery where GalleryID="& SilID &" and ParentID="& cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Content_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_Content_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_Content_Documents where DocumentID="& SilID &"") Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabDocumentListesi=Conn.Execute("SELECT * FROM Table_Content_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_ContentDocumentsGroup 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_ContentDocumentsGroup where CultureID="& LanguageID) If not TabDocument.EOF Then Do while not TabDocument.EOF %> &LanguageID=<%=LanguageID%>"><%=TabDocument("Title")%> <% TabDocument.MoveNext Loop End if TabDocument.Close %>

Sektör Bağlantı

<% c=request.QueryString("c") select case c case "Galeri2" 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_Content_Gallery2 (GalleryID,ParentID,CreatedDate,ModifyDate,CultureID) values ('"& GalleryID &"','"& ParentID &"','"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"')") Response.Redirect("?cid="& cid&"&LanguageID="&LanguageID) case "Galerici2kart" SilID=Temizle(Request.Querystring("SilID")) if SilID="" or isnumeric(SilID)=false then response.Redirect("?") set Sil=conn.execute("delete * From Table_Content_Gallery2 where GalleryID="& SilID &" and ParentID="& cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Content_Gallery2 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_Gallery2 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_Gallery2 where CultureID="& LanguageID) If not TabGaleri.EOF Then Do while not TabGaleri.EOF %> &LanguageID=<%=LanguageID%>"><%=TabGaleri("Title")%> <% TabGaleri.MoveNext Loop End if TabGaleri.Close %>

Örnek Projeler

<% d=request.QueryString("d") select case d case "Galeri3" 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_Content_Gallery3 (GalleryID,ParentID,CreatedDate,ModifyDate,CultureID) values ('"& GalleryID &"','"& ParentID &"','"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"')") Response.Redirect("?cid="& cid&"&LanguageID="&LanguageID) case "Galerici3kart" SilID=Temizle(Request.Querystring("SilID")) if SilID="" or isnumeric(SilID)=false then response.Redirect("?") set Sil=conn.execute("delete * From Table_Content_Gallery3 where GalleryID="& SilID &" and ParentID="& cid) Response.Redirect("?cid="& cid &"&LanguageID="&LanguageID) end select%> <% Set TabGaleriListesi=Conn.Execute("SELECT * FROM Table_Content_Gallery3 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_GalleryGroup3 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_GalleryGroup3 where CultureID="& LanguageID) If not TabGaleri.EOF Then Do while not TabGaleri.EOF %> &LanguageID=<%=LanguageID%>"><%=TabGaleri("Title")%> <% TabGaleri.MoveNext Loop End if TabGaleri.Close %>

<%end if TabContent.Close %>