Checking whether Advantage Server is Running

[Mike Draper]

I have been trying to get this to work (and whining about it) for a few
days.
Here is the solution I came up with to have a program use the Advantage
Remote server if available and Local server if not:
adssetservertype(ADS_REMOTE_SERVER)
try
use somefile new shared
close somefile
catch err
adssetservertype(ADS_LOCAL_SERVER)
end
As an old timer I tend to forget about TRY/CATCH.
Thanks for all of the help along the way.
Mike Draper