<% Session.LCID = 1055
baslik=Request.Form("baslik")
metin=Request.Form("konu")
aciklama=Request.Form("aciklama")
cins=Request.Form("cins")
saat=Time
tarih=date
metin=replace(metin,vbcrlf,"
")
metin=replace(metin," "," ")
if cins<>"" then
set baglanti=server.createobject("adodb.connection")
baglanti.open Cumle
set rs=server.createobject("adodb.recordset")
SQL="Select * from icerik"
rs.open SQL,baglanti,1,3
rs.addnew
Rs("aciklama")=aciklama
Rs("cins")=cins
Rs("baslik")=baslik
Rs("tarih")=tarih
Rs("konu")=metin
Rs("saat")=saat
Rs("ekleyen")=Session("ad")
rs.update
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
end if
%>
Kayıt İşlemi Bitti
Kayıt İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...