Kullandığım fonksiyon

Function Cevir(strVeri)
If strVeri = "" Then Exit Function

Set objRegExp = New Regexp
With objRegExp
.Pattern = "<.*?>"
.IgnoreCase = False
.Global = True
End With

Cevir = objRegExp.Replace(strVeri,"")

End Function


Function YaziKirp(Metin,Stryaziuzunluk,Adres)
Metin=Left(Cevir(Metin),Stryaziuzunluk)&" ...<a href="&Adres&">..devamı>></a>"
YaziKirp=Metin
End Function








veri tabanındaki bilgi


Ticaret Okulu için hazırladığımız bu projemiz sitedeki gelişmeleri kullanıcılarına ulaştırmak için üyelerine özel olarak hazırlanmıştır.

<A href="http://www.ticaretokulu.com/Forums/viewtopic/t=1072.html"
target=_blank><IMG
src="http://www.enderarslanturk.com.tr/Resimler/Makaleler/Projeler/6a.Jpg"
border=0></a>

Standart bildiğimiz rss okuyucuları gibi olmayan Rss Haber Alarmı programı ile;

a. Son açılan başlıkların listelenmesi,
b. Son yapılan yorumların listelenmesi,
c. Online kişi sayısı,
d. Tüm üyelerin listesi gibi özelliklere sahiptir.






Sonuç






Bunu nasıl düzeltebiliriz...