commands.add "MAP24","Karte","ShowMap24","bmpINTERNET"
commands.add "ROUTE24","Route planen","ShowRoute24","bmpINTERNET"

Sub ShowMap24
If Application.Panes("F_AD").DSN<>"" Then
	with Application.Panes("F_AD")
		strURL = "http://link2.map24.com/?lid=68fce7c7&maptype=java&street0=" & .rs("STRAßE") & "&zip0=" & .rs("LAND_PLZ") & "&city0=" & .rs("ORT") & "&description0=" & .rs("IDX_NAME") & " " & .rs("IDX_FIRMA")
	End with
	commands.execute "HOME",strURL
	application.caption ="FlowFact Karte"
Else
	msgbox "Keine aktive Adresse vorhanden!"
End If
End Sub

Sub ShowRoute24
If Application.Panes("F_AD").DSN<>"" Then
	
	with Application.Panes("F_AD")
        strURL = "http://link2.map24.com/?lid=68fce7c7&action=route&maptype=java&sstreet=" & application.STDRS("FIRMA1STRASSE") & "&szip=" & application.STDRS("FIRMA1PLZ") & "&scity=" & application.STDRS("FIRMA1ORT") & "&dstreet=" & .rs("STRAßE") & "&dzip=" & .rs("LAND_PLZ") & "&dcity=" & .rs("ORT") & "&description0=" & .rs("IDX_NAME") & " " & .rs("IDX_FIRMA")

	End with
	commands.execute "HOME",strURL
	application.caption ="FlowFact Routenplaner"
Else
	msgbox "Keine aktive Adresse vorhanden!":
End If
End Sub