<% dim ConnectionString dim iPos dim sDomain dim DefaultUser dim TempStr dim WSUri Dim HostPlan Path = server.mappath("/") iPos = InStr(Path, "\") TempStr = Mid(Path, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") sDomain = Left(TempStr, iPos - 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") DefaultUser = Left(TempStr, iPos - 1) On Error Resume Next WSUri = "http://webservices.registeredsite.com/blueHALO/ControlPanel/WebSite.asmx" set InldObj = CreateObject("inldWebServices.Website") HostPlan = InldObj.getPlanName(DefaultUser, WSUri) %>