Asp Mssql veritabanı ile alakali bir soru

Arkadaslar merhaba;

Mssql veritabanli asp yazilimli bir sitem var. Bir sekilde mssql icerisindeki tablolara su sekilde bir hacklink atilmis;

<div style="display:none">pill for abortion online <a href="http://blog.protonic-software.com/template">open</a> cytotec abortion pill buy online</div>

Bu link ve benzerlerinden milyonlarca atilmis ustelik

Simdi bana gereken bir replace komutu. Su komut tek tek isimi goruyor ama linkler hep farkli atildigi icin yuzlerce ayri link arayip bulup onu yolamam gerekiyor komut olarak ki bu da cok uzun zamanimi aliyor;

update kullanicilar set pass = replace(pass,'<div style="display:none">pill for abortion online <a href="http://blog.protonic-software.com/template">open</a> cytotec abortion pill buy online</div>','')

Oysa bana gereken o tablo icerisinde bulunan ve "<div" ile baslayan her seyi boslukla replace etmek. Tabi ayni satirda "<div" oncesinde kullanicinin sifresi oldugu icin "<div" oncesi silinmemeli.

Bilgisi olan varsa ve paylasirsa cok sevinirim.

Tesekkurler.

</div> den sonra herhangi bir size ait veri varmı?

hayir, bize ait veri sadece "<div" oncesidir. "<div" den sonra ne varsa silmek istiyorum zaten.

<%
'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"

%>

Hm ftp den kodla yap calistir diyorsunuz anladim. Ben direk mssql uzerinden yapmayi dusunmustum aslinda ama bu da olur. Cok tesekkur ederim zahmet verdim.

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

%>