%@ Language=VBScript %> <% On Error Resume Next Dim RSSXML(10) RSSXML(0)="http://scholasticadministrator.typepad.com/admin_featured/scholastic.xml" RSSXML(1)="http://scholasticadministrator.typepad.com/thisweekineducation/scholastic.xml" RSSXML(2)="http://blogs.scholastic.com/techtools/scholastic.xml" RSSXML(3)="http://blogs.scholastic.com/royaltreatment/scholastic.xml" RSSXML(4)= "http://scholasticadministrator.typepad.com/admin_top_stories/scholastic.xml" RSSXML(5)= "http://blogs.scholastic.com/practical_leadership/scholastic.xml" RSSXML(6)= "http://scholasticadministrator.typepad.com/admin_webinars/scholastic.xml" RSSXML(7)= "http://scholasticadministrator.typepad.com/admin_whitepapers/scholastic.xml" RSSXML(8)= "http://blogs.scholastic.com/bestintechtoday/scholastic.xml" %>
<%
'EPI="
More Stories Below"
'EPI=EPI&" "
EPI = ""
'EPI=EPI&" "
'EPI=EPI&"LEARN MORE ABOUT SCHOLASTIC PRODUCTS" 'EPI=EPI&""
'EPI=EPI&" "
'EPI=EPI&"
See All Products" 'EPI=EPI&""&title&"" response.write ""&summary&" "
else
if i = 4 then
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&"
ON OUR BLOGS
RESOURCES
|
<%
If Request.QueryString("subscribeSuccess") <> "true" Then
%>
Thank you! We've processed your information and you will receive your first issue shortly.
<% End If %>
Download your free article collection about healthy living.
<%
'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 & "
"
response.write " "
Erase webinar
%>
Free Webinar Series" response.Write ("
View more webinars >" response.write "
<%
'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 & "
"
response.write " "
Erase white
%>
Free Whitepapers" response.Write ("
|