<![CDATA[science / environment news stories aggregated by FeedZilla.com]]>
http://www.feedzilla.com
enTue, 9 Feb 2010 10:06:26 PM EST science / environment news stories aggregated by FeedZilla.comhttp://www.feedzilla.com/img/logo.gif
http://www.feedzilla.com
<![CDATA[How many scientists (and scientific instruments) does it take to sample seawater? (source: Scientific American) ]]>RSS and News widget on Feedzilla.com ]]>Tue, 09 Feb 2010 16:15:00 EST<![CDATA[Denial of global warming threat to the American pika means no protection from U.S. (source: Scientific American) ]]>News widgets and RSS feeds on Feedzilla.com ]]>Tue, 09 Feb 2010 15:31:00 EST<![CDATA[RAB Lighting Introduces 20 Watt LED Wallpack (source: 24-7 Pressrelease) ]]>News widgets and RSS feeds on Feedzilla.com ]]>Tue, 09 Feb 2010 08:00:00 GMT<![CDATA[Python Predation: Big snakes poised to change U.S. ecosystems (source: Scientific American) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Tue, 09 Feb 2010 08:00:00 EST<![CDATA[Obsessed with the Magic of Chickens (source: Green Options) ]]>RSS widgets and RSS feeds on Feedzilla.com ]]>Tue, 09 Feb 2010 05:52:01 +0000<![CDATA[Recycled Military Jackets from Burning Torch (source: Green Options) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Tue, 09 Feb 2010 01:00:53 +0000<![CDATA[New UC Davis study: Climate 'tipping points' may arrive without warning, says top forecaster (source: Eurekalert.org) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Tue, 09 Feb 2010 00:00:00 EST<![CDATA[Urbanization, export crops drive deforestation (source: Eurekalert.org) ]]>RSS news feeds and Widgets on Feedzilla.com ]]>Tue, 09 Feb 2010 00:00:00 EST<![CDATA[38 percent of world's surface in danger of desertification (source: Eurekalert.org) ]]>RSS news feeds and Widgets on Feedzilla.com ]]>Tue, 09 Feb 2010 00:00:00 EST<![CDATA[Environmental Audit Committee report 'nail in the coffin' for carbon trading (source: foe.co.uk) ]]>RSS widgets and RSS feeds on Feedzilla.com ]]>Mon, 08 Feb 2010 01:01:01 +0100<![CDATA[Waste King in TV ads clear-up (source: 24-7 Pressrelease) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Sun, 07 Feb 2010 08:00:00 GMT<![CDATA[Pardee Homes Rolls Out the 'Green Carpet' with the Grand Opening of LivingSmart Homes in Lake Elsinore and Beaumont on February 13th (source: 24-7 Pressrelease) ]]>RSS news feeds and Widgets on Feedzilla.com ]]>Sat, 06 Feb 2010 08:00:00 GMT<![CDATA[Supermarket supply code of practice needs tough enforcement (source: foe.co.uk) ]]>RSS widgets and RSS feeds on Feedzilla.com ]]>Thu, 04 Feb 2010 01:01:01 +0100<![CDATA[Ofgem calls for energy system reform (source: foe.co.uk) ]]>News widgets and RSS feeds on Feedzilla.com ]]>Wed, 03 Feb 2010 01:01:01 +0100<![CDATA[Skin cells turned directly into neurons (source: FT) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Thu, 28 Jan 2010 01:07:18 +0000<![CDATA[Top 100 Stories of 2009: #37: Algae Might Be a Source of Clean, Renewable Diesel Fuel (source: Discover Magazine) ]]>RSS and News widget on Feedzilla.com ]]>Tue, 26 Jan 2010 09:30:00 -0600<![CDATA[Top 100 Stories of 2009: #9: Experimental Coal Plant Stashes CO2 Underground (source: Discover Magazine) ]]>News widgets and RSS feeds on Feedzilla.com ]]>Mon, 25 Jan 2010 23:15:00 -0600<![CDATA[Top 100 Stories of 2009: #22: Clear-Cutting Has a High Cost (source: Discover Magazine) ]]>RSS feeds and Feed widget on Feedzilla.com ]]>Mon, 25 Jan 2010 21:50:00 -0600<![CDATA[Survival stories demonstrate resilience limits (source: FT) ]]>RSS news feeds and Widgets on Feedzilla.com ]]>Thu, 21 Jan 2010 18:19:26 +0000<![CDATA[New Partnerships Expand Duke's Presence in China (source: Duke) ]]>News widgets and RSS feeds on Feedzilla.com ]]>Thu, 21 Jan 2010 17:22:00 -0500
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
%>