<%
set uye = Baglanti.Execute("select id,sifre from Uyeler")
Do While Not uye.Eof

Baglanti.Execute("UpDate Uyeler Set sifre = '"&md5(uye("sifre")&"' where id like '"&uye("id")&"'")

uye.MoveNext
Loop
uye.Close : Set uye = Nothing
%>

Kalın yazdığım yerdeki recordsetleri kendinize göre düzenleyip

Uyeler adındaki tabloyu ve id,sifre adındaki sütunları kendinize göre düzenleyin.
ve bu dosyayı browser ile çağırın.. işinizi görecektir.