Это один из способов сделать это ..
path = Request.ServerVariables("URL")
position = InStr(2,path,"/",1)
Response.Write Right(Left(path,position-1),position-2) & "<br/>"
хотя это может выглядеть не очень хорошо на глазах;)
ОБНОВЛЕНИЕ: что, конечно, не работает в Global.asa, поскольку вы можете использовать объект Request только в Session_OnStart и Session_OnEnd. Мой плохой, извини.