<%
baslik=Request.Form("baslik")
konu=Request.Form("konu")
If konu="" then
Response.write("Konu boş olmamalı")
Response.End
else
metin=Replace(konu,vbcrlf," " )
End if
set baglanti=server.createobject("adodb.connection")
baglanti.open Cumle
set rs=server.createobject("adodb.recordset")
SQL="Select * from ziyaretcidefteri where id="&request.querystring("id")
rs.open SQL,baglanti,1,3
if not rs.eof then
Rs("baslik")=baslik
Rs("mesaj")=metin
end if
rs.update
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
%>
Kayıt İşlemi Bitti
Düzenleme
İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...