%
'Response.Write(Seviyesi)
cid= Temizle(request.QueryString("cid"))
If cid="" then cid=0
if cid="" or isnumeric(cid)=false then response.Redirect("documents.asp")
%>
Ana Sayfa > Ayarlar > Diller
<%
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%>