Yeni şifreniz en az 6 en fazla 10 karakterden oluşmalı ve özel karakter içermemelidir!!!!   Kimlik No " size="40" readonly="true"/> Adı Soyadı  <%=sifreg("soyadi")%>" size="40" maxlength="11" readonly="true"/> Eski Şifre Yeni Şifre Şifre Tekrar   <% IF Not IsNumeric(REQUEST.QUERYSTRING("islem")) THEN response.Write("sistemi zorlamayın") end if islem=request.QueryString("islem") Function temiz(Veri) temiz = Replace(Veri, "'", "''") temiz = Replace(Veri, "<", "<") temiz = Replace(Veri, ">", ">") Veri = temiz End Function if islem="1" then sifre=temiz(erc11(erc11(erc11(request.form("sifre"))))) idokul=temiz(request.form("idokul")) sifre1=temiz(request.form("sifre1")) sifre2=temiz(request.form("sifre2")) if not sifre1=sifre2 then response.Write(" Girdiğiniz Şifreler Farklı") end if if sifre1="" or sifre2="" then response.Write(" Girdiğiniz Şifreleri Kontrol Ediniz") end if set kontrol = Server.CreateObject("ADODB.Recordset") kontrol.open "SELECT* FROM ogretmenler where idogretmen="&idokul&"",erdc,1,3 sifre3=kontrol("sifre") if not sifre=sifre3 then response.write(" Girdiğiniz Şifre Hatalı") end if if sifre1<>"" and sifre2<>"" and sifre1=sifre2 and sifre=sifre3 then set kaydet = Server.CreateObject("ADODB.Recordset") kaydet.open "SELECT* FROM ogretmenler where idogretmen="&idokul&" ",erdc,1,3 kaydet("sifre")= erc11(erc11(erc11(sifre1))) kaydet.update kaydet.close response.write(" Şifre Güncelleme Başarılı") end if end if %>