<% islem=request.QueryString("islem") select case islem case "Kaydet" ID=temizle(request.form("ID")) seviye=temizle(request.form("seviye")) guvenlik_soru=temizle(request.form("guvenlik_soru")) guvenlik_cevap=temizle(request.form("guvenlik_cevap")) ad_soyad=temizle(request.form("ad_soyad")) email=temizle(request.form("email")) sifre=temizle(request.form("sifre")) yeni_sifre=request.form("yeni_sifre") yeni_sifre_tekrar=request.form("yeni_sifre_tekrar") parola=request.form("parola") yeni_parola=temizle(request.form("yeni_parola")) yeni_parola_tekrar=temizle(request.form("yeni_parola_tekrar")) if ID="" or isnumeric(ID)=false then response.Redirect("?bolum=Listele&LanguageID="&LanguageID) end if Set yetkili_duzenle_islem = Server.CreateObject("Adodb.Recordset") SQL = "Select * from Table_yonetim_kadrosu where ID="& ID &"" yetkili_duzenle_islem.Open SQL, conn, 1, 3 if yetkili_duzenle_islem.eof then response.Redirect("?bolum=Listele&LanguageID="&LanguageID) end if 'şifre sayısı zorunluluğu başlangıç sifrede_bulunan_sayi_toplami = 0 For i=1 to Len(yeni_sifre) If IsNumeric(Mid(yeni_sifre,i,1)) Then sifrede_bulunan_sayi_toplami=sifrede_bulunan_sayi_toplami + 1 Next 'şifre sayısı zorunluluğu başlangıç 'şifre harf zorunluluğu başlangıç sifrede_bulunan_harf_toplami = 0 For i=1 to Len(yeni_sifre) If not IsNumeric(Mid(yeni_sifre,i,1)) Then sifrede_bulunan_harf_toplami=sifrede_bulunan_harf_toplami + 1 Next 'şifre harf zorunluluğu başlangıç if ad_soyad="" then response.Write("Lütfen adınızı soyadınızı yazınız.") response.Write("[ Geri ]") elseif email="" then response.Write("Lütfen email adresinizi yazınız.") response.Write("[ Geri ]") elseif sifre="" then response.Write("Lütfen şifrenizi yazınız.") response.Write("[ Geri ]") elseif yeni_sifre<>yeni_sifre_tekrar then response.write("Yeni şifreniz ile yeni şifre tekrarınız birbirini tutmamaktadır.") response.Write("[ Geri ]") elseif yeni_sifre<>"" and yeni_sifre_tekrar<>"" and len(yeni_sifre)<8 or len(yeni_sifre)>15 then response.write("Yeni şifreniz 8 ile 15 karakter arası olmalıdır.") response.Write("[ Geri ]") elseif yeni_sifre=sifre then response.write("Yeni şifreniz ile eski şifreniz benzer olamaz.") response.Write("[ Geri ]") else if yeni_sifre="" and yeni_sifre_tekrar="" or yeni_sifre="0000000000000000000000000000000000000000" then yetkili_duzenle_islem("sifre")=md(sifre) elseif yeni_sifre=yeni_sifre_tekrar then yetkili_duzenle_islem("sifre")=md(yeni_sifre) end if if yeni_parola="" and yeni_parola_tekrar="" or yeni_parola="0000000000000000000000000000000000000000" then yetkili_duzenle_islem("parola")=md(parola) elseif yeni_parola=yeni_parola_tekrar then yetkili_duzenle_islem("parola")=md(yeni_parola) end if yetkili_duzenle_islem("seviye")=seviye yetkili_duzenle_islem("ad_soyad")=ad_soyad yetkili_duzenle_islem("email")=email yetkili_duzenle_islem("guvenlik_soru")=guvenlik_soru yetkili_duzenle_islem("guvenlik_cevap")=guvenlik_cevap yetkili_duzenle_islem.update yetkili_duzenle_islem.Close end if Response.Redirect("cikis.asp") %> <%end select%> <% Set Yetkili_Duzenle = Conn.Execute("SELECT * FROM Table_Yonetim_Kadrosu where ID="& ID) If not Yetkili_Duzenle.EOF Then %>

NOT :Şifreniz 8-15 karakter arası olup en az 3 'er tane sayı ve harf içermelidir. Şifreniz ve parolanız aynı olamaz.

Yönetici Adı

" id="ad_soyad" />

Yönetici Kul. Adı

" id="admin" />

E-Mail

" id="email" />

Seviye

Seçiniz selected="selected"<%end if%>>Admin

Yeni Şifre

Yeni Şifre (Tekrar)

" />

<% end if Yetkili_Duzenle.Close %>