<%
'kodu boş bir asp sayfası oluşturup çalıştırmalısın bir kereye mahsus. veritabanının yedeğini almalısın işlemden önce.
'örnek bir kayıt seti açtım. kendi veritabanına göre bağlantı kurmalısın
Set rs=Server.CreateObject("Adodb.Recordset")
Sorgu = "SELECT * FROM tabloadi"
rs.Open Sorgu, Baglanti, 3, 3
while not rs.eof
temizlenecekalan = "rs("sifre")
ayir = split(temizlenecekalan,"<div")
bul = ayir(1)
degistir = replace(temizlenecekalan,bul,"")
degistir = replace(degistir,"<div","")
'burada temizlemiş halini kaydediyoruz
rs("sifre") = trim(degistir)
rs.update
rs.movenext
wend
response.write "İşlem Bitti"
%>
Hocam o kod hata verdi, ben de madem koddan yaziyorum kendim yazayim dedim su kodu yazdim, eksiksiz calisiyor, belki ihtiyaci olan biri olur diye buraya da aktarayim;
<!--#Include File="baglanti.asp"-->
<%
Response.Buffer = True
Set Tablo = bag.Execute("Select * From tablo_ismi Where sutun_ismi Like '%<div%'")
Function VT_Temizle(Gelen_Veri)
If (Right(Gelen_Veri, 6) = "</div>") Then
VT_Temizle = Split(Gelen_Veri, "<div")(0)
Else
VT_Temizle = Gelen_Veri
End If
End Function
Dim CV : CV = 1
Do Until Tablo.EOF
If Right(CV, 2) = "00" Then
Response.Write("Tamam -- "& CV &"<br>")
Response.Flush()
End If
Veri = Nothing
Veri = Tablo("tablo_ismi")
bag.Execute("Update tablo_ismi Set sutun_ismi = '"& VT_Temizle(Veri) &"' Where id = "& Tablo("id"))
'Response.Write(VT_Temizle(Veri) & "<br><br><br>")
CV = CV + 1
Tablo.MoveNext : Loop
Set Tablo = Nothing
%>