<% response.buffer = "true" %> <% islem = request.querystring("islem") %> <% if request("islem") = "" then %> ZİYARETÇİ DEFTERİ

İsminiz :

Mail Adresiniz

Başlık

Mesaj (Max. 400)

*Tüm alanların doldurulması zorunludur.

<% set diski_defter = Server.CreateObject("Adodb.Recordset") sorgu = "Select * from ziyaretcidefteri WHERE aktif= 1 order by id desc " diski_defter.open sorgu,bagla,1,3 adet = diski_defter.recordcount diski_sayfa = Request.QueryString("diski_sayfa") if diski_sayfa="" then diski_sayfa=1 end if %>
<% diski_defter.pagesize = 10 diski_defter.absolutepage = diski_sayfa sayfa = diski_defter.pagecount for i=1 to diski_defter.pagesize if diski_defter.eof then exit for %> <%diski_defter.movenext%> <% next %>

 <%=diski_defter("adi")%> tarafından <%=diski_defter("tarih")%> tarihinde yazıldı.

<%=diski_defter("baslik")%>

<%=diski_defter("mesaj")%>
 

Sayfa : <% for diski_adet=1 to sayfa if diski_sayfa=diski_adet then response.write diski_adet else response.write " "&diski_adet&"" end if next %>

     Toplam <%=adet%> Mesaj bulunmaktadır.

<% end if %> <% if request("islem") = "ekle" then %> <% Set CaLLaKi = Server.CreateObject("ADODB.Recordset") tablo = "Select * from ziyaretcidefteri" CaLLaKi.Open tablo,Bagla,1,3 %>
 
<% Function temizle(temizlik) temizlik=replace(temizlik, ">" , "" ) temizlik=replace(temizlik, "<" , "" ) temizlik=replace(temizlik, "%" , "" ) temizlik=replace(temizlik, "*" , "" ) temizlik=replace(temizlik, "'" , "" ) temizle=temizlik End Function %> <% adi = Trim(Request.Form("adi")) adi=temizle(adi) email = Trim(Request.Form("email")) email=temizle(email) baslik = Trim(Request.Form("baslik")) baslik=temizle(baslik) mesaj = Trim(Request.Form("mesaj")) mesaj=temizle(mesaj) if adi="" then response.write "
İsim Kısmını Boş Bırakamazsınız.Lütfen Geri Dönüp Eksik Bilgilerinizi Yazınız.

Geri
 " response.end elseif email="" then response.write "
E-posta Kısmını Boş Bırakamazsınız

Geri
 " response.end elseif mesaj="" then response.write "
Mesaj Kısmını Boş Bırakamazsınız

Geri
 " response.end end if CaLLaKi.addnew CaLLaKi("adi") = adi CaLLaKi("email") = email CaLLaKi("baslik") = baslik CaLLaKi("mesaj") = mesaj CaLLaKi("tarih") = date CaLLaKi("aktif") = 0 CaLLaKi.update CaLLaKi.Close set CaLLaKi = Nothing %>

Mesajınız Başarıyla Gönderildi.
Mesajınızın Editör İncelemesinden Sonra Onaylanacaktır.

 

Ziyaretçi defterine geri dön

 

 

  <% end if %>