<%
islem = request.querystring("islem")
IF islem="degistir" then
call kaydets
end if
%>
<%
defterid = request.querystring("defterid")
set cc = server.createobject("adodb.recordset")
sql="select * from defter where id = "&defterid&""
cc.open sql,baglanti,1,3
%>
<%
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"))
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
defterid = request.querystring("defterid")
set kaydet = server.createobject("adodb.recordset")
sql="select * from defter where id = "&defterid&""
kaydet.open sql,baglanti,1,3
kaydet("adiniz") = strad
kaydet("email") = email
kaydet("emails") = emails
kaydet("mesaj") = strmesaj
kaydet.update
kaydet.close
set kaydet = nothing
baglanti.close
set baglanti = nothing
response.redirect "defteri_oku.asp"
end if
end sub
%>