<div>
Thank you very much for your help
</div>


<div>
<div class="content wysiwyg-content">
Please help I need to specify the current server and directory of the database on the server on local machine for remote users. &nbsp;At present I do a DB_Look in a view with the path and database name but this is a pain to maintain with 15 databases. <br />
<br />
The server is &quot;Development&quot;<br />
The path is &quot;\ABCWorks\Development\Ver<wbr />sion1&quot;<br />
The database is &quot;Supplier.nsf&quot;<br />
<br />
The code I use at present is as follows<br />
<br />
ServerName:= @Name([CN]; @Subset(@DbName;1) );<br />
DB_PATH := @DbLookup(&quot;&quot;; &quot;&quot;; &quot;LookUp&quot;; &quot;DB_Path&quot;;2);<br />
DB_Lookup := @DbLookup(&quot;&quot;; &quot;&quot;; &quot;LookUp&quot;; &quot;DB_Name00&quot;;2);<br />
DB_Loc :=DB_PATH+DB_Lookup;<br />
<br />
list:= @DbColumn(&quot;&quot;;ServerName:DB<wbr />_Loc;&quot;F11L<wbr />ookUp&quot;;1);<wbr /><br />
supplier := @Prompt([OKCANCELLIST];&quot;Se<wbr />lect Supplier&quot;; &quot;Select a Supplier from the list&quot;;&quot;&quot;;@Unique(list));<br />
<br />
I have a piece of code but for some reason it doesn't work<br />
<br />
SubDir := @LeftBack(@Subset(@DbName;<wbr />1) ;&quot;\\&quot;);<br />
DB_Name := @if(SubDir = &quot;&quot;;&quot;&quot;;SubDir + &quot;\\&quot;) + &quot;Supplier.nsf&quot;;<br />
<br />
Please help
</div>
</div>


Please help I need to specify the current server and directory of the database on the server on local machine for remote users.  At present I do a DB_Look in a view with the path and database name but this is a pain to maintain with 15 databases. 

The server is "Development"
The path is "\ABCWorks\Development\Version1"
The database is "Supplier.nsf"

The code I use at present is as follows

ServerName:= @Name([CN]; @Subset(@DbName;1) );
DB_PATH := @DbLookup(""; ""; "LookUp"; "DB_Path";2);
DB_Lookup := @DbLookup(""; ""; "LookUp"; "DB_Name00";2);
DB_Loc :=DB_PATH+DB_Lookup;

list:= @DbColumn("";ServerName:DB_Loc;"F11LookUp";1);
supplier := @Prompt([OKCANCELLIST];"Select Supplier"; "Select a Supplier from the list";"";@Unique(list));

I have a piece of code but for some reason it doesn't work

SubDir := @LeftBack(@Subset(@DbName;1) ;"\\");
DB_Name := @if(SubDir = "";"";SubDir + "\\") + "Supplier.nsf";

Please help

Specifying the server and directory

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.