%@ Language=VBScript %> <% Response.Buffer= true ServerName = Request.Servervariables("Server_Name") If InStr(1, ServerName, "teacherdev") then ServerTo = "appsdev2.scholastic.com" ElseIf InStr(1, ServerName, "teacherqual") then ServerTo = "appsqual2.scholastic.com" Else ServerTo = "apps.scholastic.com" End If %>