<%
'EPI="![]( "\"&title&\"")
"
response.write "" & EPI & " "
end if
end if
Next
Erase MidSection
%>
More Stories Below
"
'EPI=EPI&"
"
EPI = ""
'EPI=EPI&"
"
'EPI=EPI&"LEARN MORE ABOUT SCHOLASTIC PRODUCTS
" 'EPI=EPI&""
'EPI=EPI&"
"
'EPI=EPI&"- "
'EPI=EPI&"
21st Century learning plans to lift the achievement of all students in a district
"
'EPI=EPI&"The World's Most Effective System for Raising Reading Achievement
"
'EPI=EPI&"The Breakthrough Foundational Reading Program for our most challenged readers in Grades 3-12
"
'EPI=EPI&"
See All Products
" 'EPI=EPI&""
MidSection=GetRSSFeed(RSSXML(0),10)
For i= 0 to ubound(MidSection)-1
title=MidSection(i,0)
link=MidSection(i,1)
published=MidSection(i,2)
summary=mid(MidSection(i,4),1,140)
if i=0 then
content=MidSection(i,6)
ImageStart=instr(content,"src=")
' response.Write ImageStart
fquote=instr(ImageStart,content,"""",1) +1
equote=instr(fquote+1,content,"""",1)-2
imagelen=equote-ImageStart
response.Write "
"&title&"
" response.write ""&summary&"
"
else
ListArticle=ListArticle & ""&title&"
"&summary&"Today's Top Ed News
<%
'Top Stories: RSS value for the right bottom
TopStories=GetRSSFeed(RSSXML(4),5)
For m= 0 to ubound(TopStories)-1
title=TopStories(m,0)
link=TopStories(m,1)
summary=TopStories(m,4)
ListTop=ListTop & "
"&title&"
"&summary&"- "&ListTop&"
ON OUR BLOGS
-
<%
response.Write("
- ")
Item1=GetRSSFeed(RSSXML(1),1)
title=Item1(0,0)
link=Item1(0,1)
published=Item1(0,2)
response.write ("
Alexander Russo
") response.write (""&title&"
"&published&"
") response.Write(" ")
Erase Item1
response.Write(" - ")
Item8=GetRSSFeed(RSSXML(8),1)
title=Item8(0,0)
link=Item8(0,1)
published=Item8(0,7)
response.write ("
Scott McLeod
") response.write (""&title&"
"&published&"
") response.Write(" ")
Erase Item8
response.Write(" - ")
Item10=GetRSSFeed(RSSXML(10),1)
title=Item10(0,0)
link=Item10(0,1)
published=Item10(0,7)
response.write ("
edu@scholastic
") response.write (""&title&"
"&published&"
") response.Write(" ")
Erase Item10
response.Write(" - ")
Item9=GetRSSFeed(RSSXML(9),1)
title=Item9(0,0)
link=Item9(0,1)
published=Item9(0,2)
response.write ("
Rod Berger
") response.write (""&title&"
"&published&"
") response.Write(" ")
Erase Item9
response.Write(" - ")
Item2=GetRSSFeed(RSSXML(2),1)
title=Item2(0,0)
link=Item2(0,1)
published=Item2(0,2)
response.write ("
Tech Tools
") response.write (""&title&"
"&published&"
") response.Write(" ")
Erase Item2
%>
<%
MidSection=GetRSSFeed(RSSXML(3),4)
content=MidSection(0,6)
response.write content
Erase MidSection
%>
<%
'white rss feed
white=GetRSSFeed(RSSXML(7),4)
For n= 0 to ubound(white)-1
whTitle=white(n,0)
whLink=white(n,1)
whSummary=white(n,4)
whiteList=whiteList & ""&whTitle&" "&whSummary&" "
Next
response.write "
"
response.write "
"
Erase white
%>
Free Whitepapers
" response.Write ("- "&whiteList&"
Download your free case study about the daily hazards of student computing and how Lenovo durability makes all the difference.
<%
'webinar rss feed
webinar=GetRSSFeed(RSSXML(6),4)
For n= 0 to ubound(webinar)-1
wtitle=webinar(n,0)
wlink=webinar(n,1)
wsummary=webinar(n,4)
webinarList=webinarList & ""&wtitle&" "&wsummary&" "
Next
response.write "
"
response.write "
"
Erase webinar
%>
Free Webinar Series
" response.Write ("- "&webinarList&"