<% islem=request.QueryString("islem") select case islem case "Kaydet" Onay=Temizle(Request.Form("Onay")) Title=YariTemizle(Request.Form("Title")) MainText1=YariTemizle(Request.Form("MainText1")) MainLink1=YariTemizle(Request.Form("MainLink1")) MainText2=YariTemizle(Request.Form("MainText2")) MainLink2=YariTemizle(Request.Form("MainLink2")) MainText3=YariTemizle(Request.Form("MainText3")) MainLink3=YariTemizle(Request.Form("MainLink3")) MainText4=YariTemizle(Request.Form("MainText4")) MainLink4=YariTemizle(Request.Form("MainLink4")) MainText5=YariTemizle(Request.Form("MainText5")) MainLink5=YariTemizle(Request.Form("MainLink5")) MainText6=YariTemizle(Request.Form("MainText6")) MainLink6=YariTemizle(Request.Form("MainLink6")) MainText7=YariTemizle(Request.Form("MainText7")) MainLink7=YariTemizle(Request.Form("MainLink7")) MainText8=YariTemizle(Request.Form("MainText8")) MainLink8=YariTemizle(Request.Form("MainLink8")) MainTextBaslik1=YariTemizle(Request.Form("MainTextBaslik1")) MainTextBaslik2=YariTemizle(Request.Form("MainTextBaslik2")) MainTextBaslik3=YariTemizle(Request.Form("MainTextBaslik3")) MainTextBaslik4=YariTemizle(Request.Form("MainTextBaslik4")) MainTextBaslik5=YariTemizle(Request.Form("MainTextBaslik5")) MainTextBaslik6=YariTemizle(Request.Form("MainTextBaslik6")) MainTextBaslik7=YariTemizle(Request.Form("MainTextBaslik7")) MainTextBaslik8=YariTemizle(Request.Form("MainTextBaslik8")) if cid="" or isnumeric(cid)=false then response.Redirect("?") If Onay="" then Onay=0 conn.Execute("update Table_Language Set Onay='"& Onay &"',Title='"& Title &"',MainText1='"& MainText1 &"',MainLink1='"& MainLink1 &"',MainText2='"& MainText2 &"',MainLink2='"& MainLink2 &"',MainText3='"& MainText3 &"',MainLink3='"& MainLink3 &"',MainText4='"& MainText4 &"',MainLink4='"& MainLink4 &"',MainText5='"& MainText5 &"',MainLink5='"& MainLink5 &"',MainText6='"& MainText6 &"',MainLink6='"& MainLink6 &"',MainText7='"& MainText7 &"',MainText8='"& MainText8 &"',MainLink7='"& MainLink7 &"',MainLink8='"& MainLink8 &"',MainTextBaslik1='"& MainTextBaslik1 &"',MainTextBaslik2='"& MainTextBaslik2 &"',MainTextBaslik3='"& MainTextBaslik3 &"',MainTextBaslik4='"& MainTextBaslik4 &"',MainTextBaslik5='"& MainTextBaslik5 &"',MainTextBaslik6='"& MainTextBaslik6 &"',MainTextBaslik7='"& MainTextBaslik7 &"',MainTextBaslik8='"& MainTextBaslik8 &"',ModifyDate='"& Replace(Now(),".","/") &"' where LanguageID="& cid &"") %> <%end select%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_Language where LanguageID="& cid) If not TabContent.EOF Then %>

Başlık

" />

Ana Sayfa Başlık 1

" />

Ana Yazısı 1

<%=TabContent("MainText1")%>

Ana Sayfa Yazı Linki 1

" />

Ana Sayfa Başlık 2

" />

Ana Yazısı 2

<%=TabContent("MainText2")%>

Ana Sayfa Yazı Linki 2

" />

Ana Sayfa Başlık 3

" />

Ana Yazısı 3

<%=TabContent("MainText3")%>

Ana Sayfa Yazı Linki 3

" />

Ana Sayfa Başlık 4

" />

Ana Yazısı 4

<%=TabContent("MainText4")%>

Ana Sayfa Yazı Linki 4

" />

Ana Sayfa Başlık 5

" />

Ana Yazısı 5

<%=TabContent("MainText5")%>

Ana Sayfa Yazı Linki 5

" />

Ana Sayfa Başlık 6

" />

Ana Yazısı 6

<%=TabContent("MainText6")%>

Ana Sayfa Yazı Linki 6

" />

Ana Sayfa Başlık 7

" />

Ana Yazısı 7

<%=TabContent("MainText7")%>

Ana Sayfa Yazı Linki 7

" />

Ana Sayfa Başlık 8

" />

Ana Yazısı 8

<%=TabContent("MainText8")%>

Ana Sayfa Yazı Linki 8

" />

Seçenekler

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

<%end if TabContent.Close %>