<% 'Response.Write(Seviyesi) cid= Temizle(request.QueryString("cid")) If cid="" then cid=0 if cid="" or isnumeric(cid)=false then response.Redirect("documents.asp") %>
Yeni Dil Ekle
<% 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_Language Set Raw='"& Raw &"' where LanguageID="& cid &"") next Response.Redirect Request.ServerVariables("HTTP_REFERER") case "Delete" set DocumentDelete=conn.execute("delete * From Table_Language where LanguageID="& cid &"") Response.Redirect Request.ServerVariables("HTTP_REFERER") %>
! Sayfa silindi ...
<%end select%>
#
Dil İsmi
Sıra
İşlemler
<% i=1 Set TabContent = Conn.Execute("SELECT * FROM Table_Language order by Raw desc") %> <% Do While not TabContent.EOF 'Response.Write(seviyebu) %> " name="cid" id="cid"/> <% i=i+1 TabContent.MoveNext Loop %> <% TabContent.Close %>