<%
if (Request.QueryString("video"))="kaydet" then
id=request.querystring("id")
if not isnumeric(id)=false then
isim=request.form("isim")
aciklama=request.form("aciklama")
kod=request.form("kod")
resim=request.form("resim")
kat_id=request.form("kat_id")
If isim="" or kod="" or resim="" 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 video where id="&id&""
blgekle.Open SQL,data,1,3
if not blgekle.eof then
blgekle("aciklama")=aciklama
blgekle("isim")=isim
blgekle("resim")=resim
blgekle("kod")=kod
blgekle("kat_id")=kat_id
blgekle("tarih")=now()
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("videolar.asp")
end if
End if
if (Request.QueryString("video"))="duzenle" then
id=request.querystring("id")
if not isnumeric(id)=false then
set blgekle = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from video where id="&id&""
blgekle.open SQL,data,1,3
if not blgekle.eof then
%>
Video Düzenle
<%
blgekle.Close
Set blgekle = Nothing
Response.End
End if
End if
End if
%>