<%@ 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" %> Scholastic Administrator | Scholastic.com <% doMenu %>
<% 'EPI="

More Stories Below

" EPI = "
" MidSection=GetRSSFeed(RSSXML(0),8) 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 "" response.write "

"&title&"

" response.write "
"&summary&"
" else if i = 4 then ListArticle=ListArticle & "
  • " & EPI & "
  • " else ListArticle=ListArticle & "
  • "&title&"

    "&summary&"
  • " end if end if Next Erase MidSection %>
      <%=ListArticle%>

    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&"
  • " Next response.Write ("
      "&ListTop&"
    ") Erase TopStories %>

    ON OUR BLOGS

      <% 'Item 1: RSS value on the right top corner 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 'Item 5: RSS value on the right top corner 'response.Write("
    • ") 'Item5=GetRSSFeed(RSSXML(5),1) 'title=Item5(0,0) 'link=Item5(0,1) 'published=Item5(0,2) 'response.write ("

      Practical Leadership

      ") 'response.write ("

      "&title&"

      "&published&"

      ") 'response.Write("
    • ") 'Erase Item5 'Item 2: RSS value on the right top corner 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 %>

    RESOURCES

    • Best in Tech Archive

      Essential education technology chosen by district leaders for Administrator magazine.
    • Video Interviews

      See and hear leaders—from Ray Cortines to author Michael Horn (Disrupting Class)—intelligently discussing today’s hottest education topics.
    • Profiles in Education

      Get advice from today's newsmakers to guide you through the landmines that every superintendency holds. Including interviews with San Francisco's Carlos Garcia and AASA Superintendent of the Year Betty Morgan.
    • Weigh In:

      Trusted collegues share advice on the thorniest problems our schools are facing.

    VIDEO

    See All Videos

    Permission to repost video content available by request.

    <% If Request.QueryString("subscribeSuccess") <> "true" Then %>
    /administrator" name="successURL"/> /administrator" name="failureURL"/>
    <% Else %>
    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 & "
  • "&wtitle&" "&wsummary&"
  • " Next response.write "
    " response.write "

    Free Webinar Series

    " response.Write ("
      "&webinarList&"
    ") response.write "

    View more webinars >" response.write "

    " Erase webinar %>
    <% '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 "

    Free Whitepapers

    " response.Write ("
      "&whiteList&"
    ") response.write "
    " Erase white %>
    <% doFooter %> <% If Err.Number <> 0 then Response.write("") Error.Clear End If %>