http://www.feedzilla.com en Tue, 9 Feb 2010 4:45:35 PM EST http://www.feedzilla.com/img/logo.gif http://www.feedzilla.com RSS news feeds and Widgets on Feedzilla.com ]]> Tue, 9 Feb 2010 06:00:00 EST RSS feeds and Feed widget on Feedzilla.com ]]> Tue, 9 Feb 2010 06:00:00 EST RSS widgets and RSS feeds on Feedzilla.com ]]> Tue, 9 Feb 2010 06:00:00 EST RSS feeds and Feed widget on Feedzilla.com ]]> function purify(t) SmallWords = " aol takes normal you why would wouldn't told t s doesn de vs begins bengin among fa td afp (reuters) gmt drd doesnt isnt wont didnt cant wouldnt shant bln eur do really real want called sadc goes go daily know knew known become becomes allafrica com allafricacom set shall should nd my am pm our is im going done gone dont know make made makes cant per at enter soon sk al its he would us the as of world within tb himself could case action possible special fell theres hes help yourself need might your remain remaining o good she today yesterday sent likely across area many another under yet while read further item amid away been between both create created half make most being just never maybe perhaps today continue continues center centre year month week day million thousand years months weeks millions billion billions thousands shows show search searching searches searched using well online taking took just time hours times long longer watch watched watching their take give smell story stories full main how before where after find finding link linked linking & top bottom left right article corrected articles information info forward near email emails start use end against news new plan meet apr only ongoing some same way zone general nothing from minute minutes second seconds hour hours ago return through hence therefore agothe monday tuesday wednesday thursday friday saturday allafricacom than sunday super hyper clear end begin latest least her his pm next previous real said since so first second third fourth has have by are about also ahead ap • which reuters if inc the you me him them with last largest large high higher may month months offer real day days had into includes itself other out say says were when who very was what in a an and or but for to it that this those these all on off can will no not we will be more new up down over you they get one two three four five six seven eight nine ten nobody now back after yes no like " SmallWords = lcase(SmallWords) t = replace(t,"1","") t = replace(t,"2","") t = replace(t,"3","") t = replace(t,"4","") t = replace(t,"5","") t = replace(t,"6","") t = replace(t,"7","") t = replace(t,"8","") t = replace(t,"9","") t = replace(t,"0","") t = replace(t,":"," ") t = replace(t,";"," ") t = replace(t,","," ") t = replace(t,"'"," ") t = replace(t,"."," ") t = replace(t,"?","") t = replace(t,"!","") t = replace(t,"[","") t = replace(t,"]","") t = replace(t,"(","") t = replace(t,")","") t = replace(t,"+","") t = replace(t,"-","") t = replace(t,"&","") t = lcase(t) sm = split(SmallWords) for kk=0 to ubound(sm) t = replace(t, " " & sm(kk) & " "," ") next purify = t end function Function RemoveHTML( strText ) Dim TAGLIST TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_ "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_ "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_ "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_ "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_ "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_ "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_ "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;" BLOCKTAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_ "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_ "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_ "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_ "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_ "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_ "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_ "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;" Dim nPos1 Dim nPos2 Dim nPos3 Dim strResult Dim strTagName Dim bRemove Dim bSearchForBlock nPos1 = InStr(strText, "<") Do While nPos1 > 0 nPos2 = InStr(nPos1 + 1, strText, ">") If nPos2 > 0 Then strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1) strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ") nPos3 = InStr(strTagName, " ") If nPos3 > 0 Then strTagName = Left(strTagName, nPos3 - 1) End If If Left(strTagName, 1) = "/" Then strTagName = Mid(strTagName, 2) bSearchForBlock = False Else bSearchForBlock = True End If If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then bRemove = True If bSearchForBlock Then If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then nPos2 = Len(strText) nPos3 = InStr(nPos1 + 1, strText, " 0 Then nPos3 = InStr(nPos3 + 1, strText, ">") End If If nPos3 > 0 Then nPos2 = nPos3 End If End If End If Else bRemove = False End If If bRemove Then strResult = strResult & Left(strText, nPos1 - 1) strText = Mid(strText, nPos2 + 1) Else strResult = strResult & Left(strText, nPos1) strText = Mid(strText, nPos1 + 1) End If Else strResult = strResult & strText strText = "" End If nPos1 = InStr(strText, "<") Loop strResult = strResult & strText strResult = replace(strResult,"0 then fname=title for i=0 to 31 fname=Replace(fname,CHR(i),"_") next for i=33 to 47 fname=Replace(fname,CHR(i),"_") next for i=58 to 64 fname=Replace(fname,CHR(i),"_") next for i=91 to 96 fname=Replace(fname,CHR(i),"_") next for i=123 to 255 fname=Replace(fname,CHR(i),"_") next fname = replace(fname," ","_") fname = replace(fname," / ","_") fname = replace(fname,"(","_") fname = replace(fname,")","") fname = replace(fname,"__","") fname = left(fname,150) fname = trim(fname) fname= fname & ".asp" f_articles = replace(fname,"_.asp",".asp") else f_articles="" end if end function %>