'*********************************************************
'Nom de la fonction: jointure
«Fonction: ajouter à l'adresse? ou&
'Paramètres: Strurl ----- Site Web
«Valeur de retour: ajouté? ou & url
'*********************************************************
functionjoinchar (strurl)
ifstrurl = "" alors
Joinchar = ""
sortie
endire
iFinstr (strurl, "?") <len (strurl) puis
iFinstr (strurl, "?")> 1Then
iFinstr (strurl, "&") <len (strurl) puis
Joinchar = strurl & "&"
Autre
Joinchar = strurl
endire
Autre
Joinchar = strurl & "?"
endire
Autre
Joinchar = strurl
endire
finition de fin