| ( |
|
|
|||
| returns name of web-server from address string | |||
external function Integer InString(string,string);
global
function string 20 DefaultStyleName()
begin
string 20 res;
if (InString(WebHost,"firstoffice")!=0) then begin
res = "fostyle.css";
end else begin
res = "style.css";
end;
DefaultStyleName = res;
return;
end;
 |
|
| Related topics: | |