See what classes around the world have signed up for Scholastic Read For 2006!
|
This Map Requires Flash Click here to download it for FREE. |
% 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" %>
|
|
||||||||||||||||||||||||