<% cid= Temizle(request.QueryString("cid")) If cid="" then cid=0 if cid="" or isnumeric(cid)=false then response.Redirect("giris.asp") %>
Geri haberleradd.asp?LanguageID=<%=LanguageID%>&cid=<%=cid%><%else%>haberleradd.asp?LanguageID=<%=LanguageID%><%end if%>">Yeni Sayfa Oluştur
<% islem=request.QueryString("islem") select case islem case "Sirala" For i=1 To Temizle(request.Form("cid").count) cid=temizle(request.Form("cid")(i)) Raw=temizle(request.Form("Raw")(i)) if Raw="" then Raw=0 conn.Execute("update Table_Haberler Set Raw='"& Raw &"' where ContentID="& cid &"") next Response.Redirect Request.ServerVariables("HTTP_REFERER") case "Delete" set DocumentDelete=conn.execute("delete * From Table_Haberler where ContentID="& cid &"") Response.Redirect Request.ServerVariables("HTTP_REFERER") %>
! Sayfa silindi ...
<%end select%>
#
Başlık
Sıra
İşlemler
<% i=1 Set TabContent = Conn.Execute("SELECT * FROM Table_Haberler Where ParentID="& cid & " and CultureID="& LanguageID &" order by Raw desc") %> <%Do While not TabContent.EOF%> " name="cid" id="cid"/> <% i=i+1 TabContent.MoveNext Loop %> <% TabContent.Close %>