<%
if (Request.QueryString("video"))="ekle" then
isim=request.form("isim")
aciklama=request.form("aciklama")
kat_id=request.form("kat_id")
kod=request.form("kod")
resim=request.form("resim")
If isim="" or aciklama="" or kod="" or resim="" or kat_id="" Then
Response.Write "
BOS BIRAKTIGINIZ ALANLAR VAR. Geri Donup Doldurunuz. <<
"
Response.End
End if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from video"
blgekle.Open SQL,data,1,3
blgekle.Addnew
blgekle("aciklama")=aciklama
blgekle("kod")=kod
blgekle("resim")=resim
blgekle("isim")=isim
blgekle("kat_id")=kat_id
blgekle("Tarih")=now()
blgekle("onay")=1
blgekle.update
Response.Redirect("?video=Eklendi")
End if
if (Request.QueryString("video"))="Eklendi" then
response.write("