19. Februar 2007 17:54
19. Februar 2007 18:03
GetDatabaseName() : Text[1024]
EXIT(GetParameterValue('database'));
GetServerName() : Text[1024]
EXIT(GetParameterValue('servername'));
GetServerType() : Text[1024]
EXIT(GetParameterValue('servertype'));
GetParameterValue(Parameter : Text[30]) Value : Text[1024]
Parameter := DELCHR(Parameter,'>','=') + '=';
IF STRPOS(CONTEXTURL,Parameter) = 0 THEN
EXIT('<empty>');
Value := COPYSTR(CONTEXTURL,STRPOS(CONTEXTURL,Parameter) + STRLEN(Parameter));
IF STRPOS(Value,'&') <> 0 THEN
EXIT(COPYSTR(Value,1,STRPOS(Value,'&') - 1));
EXIT(Value);
20. Februar 2007 10:40
20. Februar 2007 11:00