Hier der Code für Notes 5:
ServerName := @Name([Abbreviate];@Subset(@DbName;1));
DNSName := @DbLookup("":"";"":"names.nsf";"Connections";Servername;"OptionalNetworkAddress");
WebDbName := @ReplaceSubstring(@Subset(@DbName;-1);"\\";"/");
URLNotesName := @LowerCase("notes://"+ @Name([CN];@Subset(@DbName;1)) + "/" + WebDbName);
URLDNSName := @LowerCase("notes://"+ DNSName + "/" + WebDbName);
Link := @DbTitle + " on " + URLNotesName;
@If(DNSName!="";Link := Link + " [ " + URLDNSName + " ]";"");
@Prompt([OkCancelEdit];"Database URL";"URL of current Database is";Link ;"");
Andreas