<%
if (Request.QueryString("resim"))="ekle" then
isim=request.form("isim")
aciklama=request.form("aciklama")
kat_id=request.form("kat_id")
url=request.form("url")
url_kucuk=request.form("url_kucuk")
If isim="" or aciklama="" or url="" or url_kucuk="" or kat_id="" Then
Response.Write "
Boş Bıraktığınız Alan Var. Geri Dönüp Doldurunuz. <<
"
Response.End
End if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from galeri"
blgekle.Open SQL,data,1,3
blgekle.Addnew
blgekle("aciklama")=aciklama
blgekle("url")=url
blgekle("url_kucuk")=url_kucuk
blgekle("isim")=isim
blgekle("kat_id")=kat_id
blgekle("Tarih")=now()
blgekle("onay")=1
blgekle.update
Response.Redirect("?resim=Eklendi")
End if
if (Request.QueryString("resim"))="Eklendi" then
response.write("