<% islem=request.QueryString("islem") select case islem case "Kaydet" GroupID=Temizle(Request.Form("GroupID")) Title=YariTemizle(Request.Form("Title")) Header=YariTemizle(Request.Form("Header")) Dosya=Temizle(Request.Form("Dosya")) DocumentType=Temizle(Request.Form("DocumentType")) if cid="" or isnumeric(cid)=false then response.Redirect("?") conn.Execute("update Table_ContentDocuments Set GroupID='"& GroupID &"',DocumentType='"& DocumentType &"',Title='"& Title &"',Header='"& Header &"',Dosya='"& Dosya &"',ModifyDate='"& Replace(Now(),".","/") &"' where DocumentID="& cid &"") %> <%end select%> <% Set TabContent = Conn.Execute("SELECT * FROM Table_ContentDocuments where DocumentID="& cid) If not TabContent.EOF Then %>

Dosya Grubu

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

Dosya Tipi

selected="selected"<%end if%>>PDF selected="selected"<%end if%>>WORD selected="selected"<%end if%>>EXCEL selected="selected"<%end if%>>RAR selected="selected"<%end if%>>ZİP

Başlık

" />

Açıklama

<%=TabContent("Header")%>

Dosya

" id="Dosya"/> Dosya Yükle

<%end if TabContent.Close %>