<%
IF yazmas=0 then
response.redirect "defter_kapali.asp"
end if
%>
<%
alinti = yazitemizle(Request.QueryString("alinti"))
'// Alıntı yapılıyorsa, alıntılanan mesaj veritabanından alınıyor
If alinti = "yap" Then
numara = SQLTemizle(request.querystring("numara"))
set cc = server.createobject("adodb.recordset")
sql="select * from defter where id = "&numara&""
cc.open sql,baglanti,1,3
strmesaj = "[quote="&cc("adiniz")&"]"&cc("mesaj")&"[/quote]"
end if
%>
<%
islem = request.querystring("islem")
IF islem="kaydet" then
call kaydets
end if
%>
<%
sub kaydets
adiniz = yazitemizle(request.form("adiniz"))
email = yazitemizle(request.form("email"))
emails = yazitemizle(request.form("emails"))
frmparola = yazitemizle(request.form("frmparola"))
mesaj = yazitemizle(request.form("mesaj"))
strTarih = Now()
strAd = YaziTemizle(Left(Request.Form("adiniz"),255))
strMesaj = YaziTemizle(Request.Form("mesaj"))
If not Request("frmParola")=Session("Parola") Then %>
<%
elseif instr(email,"@") = 0 then %>
<% elseif instr(email,".") = 0 then %>
<% else
set kd = server.createobject("adodb.recordset")
kd.Open "SELECT * FROM Kelimeler", baglanti, 1, 3
If Not kd.Eof Then
Do While Not kd.Eof
If IsNull(kd("ilk")) = False AND IsNull(kd("yerine")) = False Then
strAd = Replace(strAd, kd("ilk"), kd("yerine"), 1, -1, 1)
strMesaj = Replace(strMesaj, kd("ilk"), kd("yerine"), 1, -1, 1)
End If
kd.Movenext
Loop
End If
kd.Close
set kaydet = server.createobject("adodb.recordset")
sql="select * from defter"
kaydet.open sql,baglanti,1,3
kaydet.addnew
kaydet("adiniz") = strad
kaydet("email") = email
kaydet("emails") = emails
kaydet("mesaj") = strmesaj
kaydet("tarih") = strtarih
IF onaysistemi=1 then %><%
kaydet("onay") = 1
%><% else %><%
kaydet("onay") = 0
end if
kaydet.update
kaydet.close
set kaydet = nothing
baglanti.close
set baglanti = nothing
IF onaysistemi=1 then %><%
response.redirect "defter_otomatik.asp"
%><% else %><%
response.redirect "defter_manuel.asp"
%><%
end if
end if
end sub
%>