<% kul=request.Cookies("cm")("nick") Set g1 = Server.CreateObject("ADODB.Connection") g1.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data4455.mdb")) Set banka8 = Server.CreateObject("ADODB.Recordset") baglandir8 = "select * from user where nick='"&kul&"'" banka8.Open baglandir8,g1,3,3 if banka8.recordcount=0 then Response.Redirect "admin.asp" if Request.form("t12")="" then Response.Redirect "edit.asp?sifre=1&mesaj4=Tüm alanları doldurun" if Request.form("t13")="" then Response.Redirect "edit.asp?sifre=1&mesaj4=Tüm alanları doldurun" if Request.form("t14")="" then Response.Redirect "edit.asp?sifre=1&mesaj4=Tüm alanları doldurun" Set banka = Server.CreateObject("ADODB.Recordset") baglandir = "select * from user where nick" banka.Open baglandir,g1,3,3 if Request.form("t12")<>banka("pass") then Response.Redirect "edit.asp?mesaj4=Eski şifre hatalı" if Request.form("t13")<>Request.form("t14") then Response.Redirect "edit.asp?mesaj4=Şifre tekrar hatalı" banka("pass")=Request.form("t13") banka.update pass2 = Request.form("t13") Response.Cookies("cm")("pass") = pass2 Response.Cookies("cm").Expires = Now()+7 Response.Redirect "edit.asp?mesaj4=Şifre değiştirildi" %>