<% dim ThisHost,ThisUrl ThisUrl = "/TempLets/" ThisHost = replace(lcase(request.ServerVariables("HTTP_HOST"))," ","") select case ThisHost case "it.sncrc.com"''Î÷Ïß·ç¾° ThisUrl = ThisUrl & "sncrc/boot.js" case else'ĬÈÏ ThisUrl = "http://www.3qit.com" & ThisUrl & "boot_sp1.js" end select %>document.write(''); document.write('');