<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
<!--#INCLUDE file="baglanti.asp"-->

<%
dim gun, ay, yil, baslik, aciklama

gun = Request.Form("gun")
ay = Request.Form("ay")
yil = Request.Form("yil")
baslik = Request.Form("baslik")
aciklama = Request.Form("aciklama")

Set kaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from Ajanda"
kaydet.open sql_kaydet,bag,1,3
kaydet.addnew

kaydet("gun") = gun
kaydet("ay") = ay
kaydet("yil") = yil
kaydet("baslik") = baslik
kaydet("aciklama") = aciklama

kaydet.update
kaydet.close
set kaydet = Nothing
Response.Redirect "etkinlik.asp"
%>