<% if (Request.QueryString("resim"))="kaydet" then id=request.querystring("id") if not isnumeric(id)=false then isim=request.form("isim") aciklama=request.form("aciklama") url=request.form("url") url_kucuk=request.form("url_kucuk") kat_id=request.form("kat_id") If isim="" or url="" or url_kucuk="" or kat_id="" Then Response.Write "


Bos Biraktiginizz Alan Var.
Geri Dönüp Doldurunuz.
<<
" Response.End End if set blgekle = Server.CreateObject("ADODB.RecordSet") SQL = "select * from galeri where id="&id&"" blgekle.Open SQL,data,1,3 if not blgekle.eof then blgekle("aciklama")=aciklama blgekle("isim")=isim blgekle("url_kucuk")=url_kucuk blgekle("url")=url blgekle("kat_id")=kat_id if request.form("onay")<>"" then blgekle("onay")=1 else blgekle("onay")=0 end if blgekle.update end if blgekle.Close Set blgekle = Nothing Response.Redirect("resimler.asp") end if End if if (Request.QueryString("resim"))="duzenle" then id=request.querystring("id") if not isnumeric(id)=false then set blgekle = Server.CreateObject("ADODB.RecordSet") SQL = "select * from galeri where id="&id&"" blgekle.open SQL,data,1,3 if not blgekle.eof then %>
Resim Düzenle

Resim Adi : 
 ">
Büyük Resim Adresi :  "> Bilgisayardan Yükle
Küçük Resim Adresi :  "> Bilgisayardan Yükle
Resim Açiklamasi : 
Resim Kategorisi : 
Onay Durumu :  checked="checked" <% end if %> />        
<% blgekle.Close Set blgekle = Nothing Response.End End if End if End if %>