<% function getAppServer() ServerName = Request.Servervariables("Server_name") If InStr(1, ServerName, "teacherdev") then getAppServer = "appsdev2.scholastic.com" ElseIf InStr(1, ServerName, "teacherqual") then getAppServer = "appsqual2.scholastic.com" Else getAppServer = "apps.scholastic.com" End If end function Dim mapLink mapLink = "http://"&getAppServer()&"/readfor2003/worldmap/map.asp" %> Scholastic.com | Read For 2006: World Map <% doMenu %>

Reading Ambassadors
World Map

 


See what classes around the world have signed up for Scholastic Read For 2006!

 

Launch the world map
This Map Requires Flash
Click here to download it for FREE.
<% doFooter %>