Function CreateWebMapAddress(tcSource) IF tcSource = "GOOGLE" lcAddress = "Http://maps.google.com/maps?q=" lcAddress = lcAddress + ; IIF(!EMPTY(m.ad_addr_1), STRTRAN(ALLTRIM(m.ad_addr_1), " ", "+"), "") IF !EMPTY(lcAddress) AND !EMPTY(m.ad_addr_2) lcAddress = lcAddress + ",+" ENDIF lcAddress = lcAddress + ; IIF(!EMPTY(m.ad_addr_2), STRTRAN(ALLTRIM(m.ad_addr_2), " ", "+"), "") IF !EMPTY(lcAddress) AND !EMPTY(m.ad_addr_3) lcAddress = lcAddress + ",+" ENDIF lcAddress = lcAddress + ; IIF(!EMPTY(m.ad_addr_3), STRTRAN(ALLTRIM(m.ad_addr_3), " ", "+"), "") IF !EMPTY(lcAddress) AND !EMPTY(m.ad_city) lcAddress = lcAddress + ",+" ENDIF lcAddress = lcAddress + ; IIF(!EMPTY(m.ad_city), STRTRAN(ALLTRIM(m.ad_city), " ", "+"), "") IF !EMPTY(lcAddress) AND !EMPTY(m.ad_region) lcAddress = lcAddress + ",+" ENDIF lcAddress = lcAddress + ; IIF(!EMPTY(m.ad_region), STRTRAN(ALLTRIM(m.ad_region), " ", "+"), "") IF !EMPTY(lcAddress) AND !EMPTY(m.ad_region) lcAddress = lcAddress + "+" ENDIF ENDIF RETURN lcAddressYou'd call it by simply doing:
Local lcAddress lcAddress = GetWebMapAddress('GOOGLE')and then just run ShellExecute with lcAddress