<% islem=request.QueryString("islem") select case islem case "Kaydet" GroupID=YariTemizle(Request.Form("GroupID")) Title=YariTemizle(Request.Form("Title")) Header=YariTemizle(Request.Form("Header")) LanguageID=Temizle(Request.QueryString("LanguageID")) Link=YariTemizle(Request.Form("Link")) 'Response.Write(GroupID) 'Response.End() if cid="" or isnumeric(cid)=false then response.Redirect("?") conn.Execute("update Table_Gallery3 Set GroupID='"& GroupID &"',Title='"& Title &"',Header='"& Header &"',Link='"& Link &"',ModifyDate='"& Replace(Now(),".","/") &"' where GalleryID="& cid &"") Response.Redirect("galleryedit3.asp?grupid="& grupid &"&cid="& cid &"&LanguageID="&LanguageID) %> <%case ""%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_Gallery3 where GalleryID="& cid) If not TabContent.EOF Then %>

Galeri Grubu

<% Set TabDocument=Conn.Execute("SELECT * FROM Table_GalleryGroup3 where CultureID="& LanguageID) If Not TabDocument.EOF Then %> <%Do While not TabDocument.EOF%> " <%If TabDocument("GalleryID")=TabContent("GroupID") then%> selected="selected"<%end if%>><%=TabDocument("Title")%> <% TabDocument.MoveNext Loop %> <% end if TabDocument.Close %>

Başlık

" />

Link

" />

Açıklama

<%=TabContent("Header")%>

Resim

" />

<%end if TabContent.Close end select %>