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...
