<% call esasUst() %> <% if defter_onay=True then%> <% if request.Form("guvenlik")=request.Form("guvenlik2") then Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from defter" rs.Open sor,Sur,1,3 Dim yazan, tarih, email, web, sehir, mesaj, site yazan = request.form("yazan") email = request.form("email") tarih = tarih web = request.form("web") sehir = request.form("sehir") mesaj = request.form("mesaj") else response.write ("Hata Güvenlik kodunu yanlış girdiniz, tekrar deneyiniz... [ Tekrar ]

") response.end end if If mesaj = "" then response.write ("Hata Lütfen Mesaj Yazınız... [ Tekrar ]

") response.end elseif yazan = "" then response.write ("Hata Lütfen İsminizi Boş Bırakmayınız... [ Tekrar ]

") response.end end if mesaj = Replace(mesaj, Chr(10) , "") 'satır başı mesaj = Replace(mesaj, Chr(34) , "") 'çift tıarnak mesaj = Replace(mesaj, "'" , "") 'tek tırnak mesaj = Replace(mesaj, Chr(13) , " ") 'yeni satır mesaj = Replace(mesaj, "<" , " ") 'küçüktür mesaj = Replace(mesaj, ">" , " ") 'büyüktür yazan = Replace(yazan, Chr(10) , "") 'satır başı yazan = Replace(yazan, Chr(34) , "") 'çift tıarnak yazan = Replace(yazan, "'" , "") 'tek tırnak yazan = Replace(yazan, Chr(13) , " ") 'yeni satır yazan = Replace(yazan, "<" , " ") 'küçüktür yazan = Replace(yazan, ">" , " ") 'büyüktür email = Replace(email, Chr(10) , "") 'satır başı email = Replace(email, Chr(34) , "") 'çift tıarnak email = Replace(email, "'" , "") 'tek tırnak email = Replace(email, Chr(13) , " ") 'yeni satır email = Replace(email, "<" , " ") 'küçüktür email = Replace(email, ">" , " ") 'büyüktür sehir = Replace(sehir, Chr(10) , "") 'satır başı sehir = Replace(sehir, Chr(34) , "") 'çift tıarnak sehir = Replace(sehir, "'" , "") 'tek tırnak sehir = Replace(sehir, Chr(13) , " ") 'yeni satır sehir = Replace(sehir, "<" , " ") 'küçüktür sehir = Replace(sehir, ">" , " ") 'büyüktür web = Replace(web, Chr(10) , "") 'satır başı web = Replace(web, Chr(34) , "") 'çift tıarnak web = Replace(web, "'" , "") 'tek tırnak web = Replace(web, Chr(13) , " ") 'yeni satır web = Replace(web, "<" , " ") 'küçüktür web = Replace(web, ">" , " ") 'büyüktür rs.AddNew rs("yazan") = yazan rs("email") = email rs("tarih") = tarih rs("web") = web rs("sehir") = sehir rs("mesaj") = mesaj rs.Update rs.close set rs = Nothing set conn = Nothing response.redirect "defter.asp" %> <%else response.write "Ziyaretçi Defteri Kullanıma Kapalıdır." end if %> <% call esasAlt() %>