'**********************************************
'Funktionsname: JoinChar
'Funktion: zur Adresse hinzufügen? oder&
'Parameter: Streurl ----- Website
'Rückgabewert: hinzugefügt? oder & url
'**********************************************
FunktionJoinchar (StRURL)
ifstrurl = "" dann
Joinchar = ""
Ausgangsfunktion
Endif
ifInstr (StRURL, "?") <len (streurl) dann
ifInstr (StRURL, "?")> 1Then
ifInstr (StRURL, "&") <len (StRURL) dann
JoinChar = StRURL & "&"
Anders
JoinChar = StRURL
Endif
Anders
JoinChar = StRURL & "?"
Endif
Anders
JoinChar = StRURL
Endif
Endfunktion